home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / mint / lib / mlib42d.zoo / diffc < prev    next >
Encoding:
Text File  |  1994-01-16  |  101.1 KB  |  3,880 lines
  1. *** 41.1    1993/11/03 13:33:02
  2. --- abs.c    1993/11/24 20:22:04
  3. ***************
  4. *** 1,6 ****
  5. --- 1,13 ----
  6.   /* return absolute values */
  7.   #include <stdlib.h>
  8.   
  9. + #ifdef abs
  10. + #undef abs
  11. + #endif
  12. + #ifdef labs
  13. + #undef labs
  14. + #endif
  15. + 
  16.   int abs(x)
  17.   int x;
  18.   { return x < 0 ? -x : x; }
  19. *** 41.1    1993/11/03 13:33:02
  20. --- bblink.c    1994/01/13 08:03:30
  21. ***************
  22. *** 5,38 ****
  23.   #include <compiler.h>
  24.   #include <stdio.h>
  25.   #include <stdlib.h>
  26.   
  27. ! /* block count struct produced by gcc -tcov */
  28. ! typedef struct _bb_count {
  29.       long    initialized;    /* has __bb_init_func been called */
  30. !     char    *filename;    /* filename for .d file          */
  31. !     long    *block_counts;  /* address of block count table   */
  32. !     long    ncount;        /* sizeof block count table       */
  33.                       /* ie: # of basic blocks in file  */
  34. !     struct _bb_count *next;    /* in memory link to next struct  */
  35. !     char    ***addr_table;  /* addr of basic block address table */
  36. !                 /* size of addr_table == ncount+1    */
  37. ! } BB_COUNT;
  38.   
  39. ! void __bb_init_func __PROTO((BB_COUNT *));
  40.   static void exit_func __PROTO((void));      /* installed to be called at exit */
  41. ! static void save_info __PROTO((BB_COUNT *));
  42.   
  43.   /* vars */
  44. ! static BB_COUNT *hdr = NULL;    /* list of all bb_count for which 
  45.                          __bb_init_func has been called */
  46.   static char first_call = 1;    /* flags first call to __bb_init_func */
  47.   static char at_exit_failed = 0; /* flag to indicate that atexit() failed */
  48.   
  49.   /*
  50. !  * called by gcc -tcov generated code on first entry into a function
  51.    */
  52.   void __bb_init_func(bb_count)
  53. ! BB_COUNT *bb_count;
  54.   {
  55.       if(at_exit_failed)
  56.       return;
  57. --- 5,48 ----
  58.   #include <compiler.h>
  59.   #include <stdio.h>
  60.   #include <stdlib.h>
  61. + #include <time.h>
  62. + #include <string.h>
  63.   
  64. ! /* block count struct produced by gcc -a */
  65. ! struct bb {
  66.       long    initialized;    /* has __bb_init_func been called */
  67. !     const char    *filename;    /* filename for .d file          */
  68. !     long    *counts;    /* address of block count table   */
  69. !     long    ncounts;    /* sizeof block count table       */
  70.                       /* ie: # of basic blocks in file  */
  71. !     struct bb *next;        /* in memory link to next struct  */
  72. !     const unsigned long    *addresses; /* addr of basic block address table */
  73. !                 /* size of address table == ncounts+1 */
  74. ! 
  75. !     /* Older GCC's did not emit these fields.  */
  76. !     long nwords;
  77. !     const char **functions;
  78. !     const long *line_nums;
  79. !     const char **filenames;
  80. ! };
  81.   
  82. ! void __bb_init_func __PROTO((struct bb *));
  83.   static void exit_func __PROTO((void));      /* installed to be called at exit */
  84. ! #ifdef OLD
  85. ! static void save_info __PROTO((struct bb *));
  86. ! #endif
  87.   
  88.   /* vars */
  89. ! static struct bb *bb_head = NULL; /* list of all bb_count for which 
  90.                          __bb_init_func has been called */
  91.   static char first_call = 1;    /* flags first call to __bb_init_func */
  92.   static char at_exit_failed = 0; /* flag to indicate that atexit() failed */
  93.   
  94.   /*
  95. !  * called by gcc -a generated code on first entry into a function
  96.    */
  97.   void __bb_init_func(bb_count)
  98. ! struct bb *bb_count;
  99.   {
  100.       if(at_exit_failed)
  101.       return;
  102. ***************
  103. *** 51,71 ****
  104.   
  105.       if(bb_count->initialized == 0)
  106.       {   /* link into list of bb_counts */
  107. !     bb_count->next = hdr;
  108. !     hdr = bb_count;
  109.       bb_count->initialized = 1;
  110.       }
  111.   }
  112.   
  113.   /*
  114.    * called on normal exit
  115.    *   write out block profile files for each bb_count struct in list.
  116.    */
  117.   static void exit_func()
  118.   {
  119. !     BB_COUNT *p;
  120.   
  121. !     for(p = hdr; p; p = p->next)
  122.          save_info(p);
  123.   }
  124.   
  125. --- 61,82 ----
  126.   
  127.       if(bb_count->initialized == 0)
  128.       {   /* link into list of bb_counts */
  129. !     bb_count->next = bb_head;
  130. !     bb_head = bb_count;
  131.       bb_count->initialized = 1;
  132.       }
  133.   }
  134.   
  135. + #ifdef OLD
  136.   /*
  137.    * called on normal exit
  138.    *   write out block profile files for each bb_count struct in list.
  139.    */
  140.   static void exit_func()
  141.   {
  142. !     struct bb *p;
  143.   
  144. !     for(p = bb_head; p; p = p->next)
  145.          save_info(p);
  146.   }
  147.   
  148. ***************
  149. *** 78,88 ****
  150.    * given a bb_count struct, save info into .d file
  151.    */
  152.   static void save_info(p)
  153. ! BB_COUNT *p;
  154.   {
  155.       FILE *fp;
  156.       long i, *bcounts;
  157. !     DINFO *dinfo = malloc(p->ncount * sizeof(DINFO));
  158.   
  159.       if(!dinfo)
  160.       {
  161. --- 89,99 ----
  162.    * given a bb_count struct, save info into .d file
  163.    */
  164.   static void save_info(p)
  165. ! struct bb *p;
  166.   {
  167.       FILE *fp;
  168.       long i, *bcounts;
  169. !     DINFO *dinfo = malloc(p->ncounts * sizeof(DINFO));
  170.   
  171.       if(!dinfo)
  172.       {
  173. ***************
  174. *** 97,118 ****
  175.       return;
  176.       }
  177.       /* read .d file & accumulate counts */
  178. !     for(i = 0, bcounts = p->block_counts;
  179.           fscanf(fp, "%ld%ld", &dinfo[i].lineno, &dinfo[i].count) == 2; i++)
  180.       {
  181. !     if(i >= p->ncount)
  182.           {
  183.             fprintf(stderr, "Block counts in %s exceed expected %ld, rest skipped\n",
  184. !             p->filename, p->ncount);
  185.             break;
  186.           }
  187.       dinfo[i].count += bcounts[i];
  188.       }
  189.       fclose(fp);
  190. !     if(i < p->ncount)
  191.       {
  192.         fprintf(stderr, "Warning Block counts in %s less than expected %ld\n",
  193. !             p->filename, p->ncount);
  194.       }
  195.       if((fp = fopen(p->filename, "w")) == NULL)
  196.       {
  197. --- 108,129 ----
  198.       return;
  199.       }
  200.       /* read .d file & accumulate counts */
  201. !     for(i = 0, bcounts = p->counts;
  202.           fscanf(fp, "%ld%ld", &dinfo[i].lineno, &dinfo[i].count) == 2; i++)
  203.       {
  204. !     if(i >= p->ncounts)
  205.           {
  206.             fprintf(stderr, "Block counts in %s exceed expected %ld, rest skipped\n",
  207. !             p->filename, p->ncounts);
  208.             break;
  209.           }
  210.       dinfo[i].count += bcounts[i];
  211.       }
  212.       fclose(fp);
  213. !     if(i < p->ncounts)
  214.       {
  215.         fprintf(stderr, "Warning Block counts in %s less than expected %ld\n",
  216. !             p->filename, p->ncounts);
  217.       }
  218.       if((fp = fopen(p->filename, "w")) == NULL)
  219.       {
  220. ***************
  221. *** 120,126 ****
  222.       free(dinfo);
  223.       return;
  224.       }
  225. !     for(i = 0; i < p->ncount; i++)
  226.       {
  227.       if(fprintf(fp, "\t%ld\t%ld\n", dinfo[i].lineno, dinfo[i].count) == EOF)
  228.       {
  229. --- 131,137 ----
  230.       free(dinfo);
  231.       return;
  232.       }
  233. !     for(i = 0; i < p->ncounts; i++)
  234.       {
  235.       if(fprintf(fp, "\t%ld\t%ld\n", dinfo[i].lineno, dinfo[i].count) == EOF)
  236.       {
  237. ***************
  238. *** 133,135 ****
  239. --- 144,275 ----
  240.       fclose(fp);
  241.       free(dinfo);
  242.   }
  243. + 
  244. + #else /* !OLD */
  245. + 
  246. + /* from GCC's libgcc2.c */
  247. + 
  248. + /* Return the number of digits needed to print a value */
  249. + /* __inline__ */ static int num_digits (long value, int base)
  250. + {
  251. +   int minus = (value < 0 && base != 16);
  252. +   unsigned long v = (minus) ? -value : value;
  253. +   int ret = minus;
  254. + 
  255. +   do
  256. +     {
  257. +       v /= base;
  258. +       ret++;
  259. +     }
  260. +   while (v);
  261. + 
  262. +   return ret;
  263. + }
  264. + 
  265. + static void
  266. + exit_func (void)
  267. + {
  268. +   FILE *file = fopen ("bb.out", "a");
  269. +   time_t time_value;
  270. + 
  271. +   if (!file)
  272. +     perror ("bb.out");
  273. + 
  274. +   else
  275. +     {
  276. +       struct bb *ptr;
  277. + 
  278. +       time (&time_value);
  279. +       fprintf (file, "Basic block profiling finished on %s\n", ctime (&time_value));
  280. + 
  281. +       /* We check the length field explicitly in order to allow compatibility
  282. +      with older GCC's which did not provide it.  */
  283. + 
  284. +       for (ptr = bb_head; ptr != (struct bb *) NULL; ptr = ptr->next)
  285. +     {
  286. +       int i;
  287. +       int func_p    = (ptr->nwords >= sizeof (struct bb) && ptr->nwords <= 1000);
  288. +       int line_p    = (func_p && ptr->line_nums);
  289. +       int file_p    = (func_p && ptr->filenames);
  290. +       long ncounts    = ptr->ncounts;
  291. +       long cnt_max  = 0;
  292. +       long line_max = 0;
  293. +       long addr_max = 0;
  294. +       int file_len    = 0;
  295. +       int func_len    = 0;
  296. +       int blk_len    = num_digits (ncounts, 10);
  297. +       int cnt_len;
  298. +       int line_len;
  299. +       int addr_len;
  300. + 
  301. +       fprintf (file, "File %s, %ld basic blocks \n\n",
  302. +            ptr->filename, ncounts);
  303. + 
  304. +       /* Get max values for each field.  */
  305. +       for (i = 0; i < ncounts; i++)
  306. +         {
  307. +           const char *p;
  308. +           int len;
  309. + 
  310. +           if (cnt_max < ptr->counts[i])
  311. +         cnt_max = ptr->counts[i];
  312. + 
  313. +           if (addr_max < ptr->addresses[i])
  314. +         addr_max = ptr->addresses[i];
  315. + 
  316. +           if (line_p && line_max < ptr->line_nums[i])
  317. +         line_max = ptr->line_nums[i];
  318. + 
  319. +           if (func_p)
  320. +         {
  321. +           p = (ptr->functions[i]) ? (ptr->functions[i]) : "<none>";
  322. +           len = strlen (p);
  323. +           if (func_len < len)
  324. +             func_len = len;
  325. +         }
  326. + 
  327. +           if (file_p)
  328. +         {
  329. +           p = (ptr->filenames[i]) ? (ptr->filenames[i]) : "<none>";
  330. +           len = strlen (p);
  331. +           if (file_len < len)
  332. +             file_len = len;
  333. +         }
  334. +         }
  335. + 
  336. +       addr_len = num_digits (addr_max, 16);
  337. +       cnt_len  = num_digits (cnt_max, 10);
  338. +       line_len = num_digits (line_max, 10);
  339. + 
  340. +       /* Now print out the basic block information.  */
  341. +       for (i = 0; i < ncounts; i++)
  342. +         {
  343. +           fprintf (file,
  344. +                "    Block #%*d: executed %*ld time(s) address= 0x%.*lx",
  345. +                blk_len, i+1,
  346. +                cnt_len, ptr->counts[i],
  347. +                addr_len, ptr->addresses[i]);
  348. + 
  349. +           if (func_p)
  350. +         fprintf (file, " function= %-*s", func_len,
  351. +              (ptr->functions[i]) ? ptr->functions[i] : "<none>");
  352. + 
  353. +           if (line_p)
  354. +         fprintf (file, " line= %*ld", line_len, ptr->line_nums[i]);
  355. + 
  356. +           if (file_p)
  357. +         fprintf (file, " file= %s",
  358. +              (ptr->filenames[i]) ? ptr->filenames[i] : "<none>");
  359. + 
  360. +           fprintf (file, "\n");
  361. +         }
  362. + 
  363. +       fprintf (file, "\n");
  364. +       fflush (file);
  365. +     }
  366. + 
  367. +       fprintf (file, "\n\n");
  368. +       fclose (file);
  369. +     }
  370. + }
  371. + #endif /* OLD */
  372. *** /dev/null    Sun Jan 16 03:52:52 1994
  373. --- buffindf.c    Sun Jan  9 04:37:54 1994
  374. ***************
  375. *** 0 ****
  376. --- 1,129 ----
  377. + /* _buffindfile: given a base filename, a list of directories, and a list
  378. +    of possible extensions to the filename, attempts to find a file.
  379. +    Useful for doing, e.g. spawnvp. Note that the current directory
  380. +    is always searched first! If the filename already contains a
  381. +    path specification (or extension) then the given path list
  382. +    (or extension list) is ignored.
  383. +    Returns the name by which the file was found, or NULL.
  384. + 
  385. +    Written by Eric R. Smith and placed in the public domain.
  386. + 
  387. +    rehacked by Uwe Ohse, 28.4.93, to support reentrant spawn/popen.
  388. + 
  389. +    19.12.93, Andreas Schwab, clean up namespace:
  390. +    - findfile moved to separate file
  391. +    - buffindfile renamed to _buffindfile
  392. + */
  393. + 
  394. + #include <compiler.h>
  395. + #include <support.h>
  396. + #include <stddef.h>
  397. + #include <types.h>
  398. + #include <stat.h>
  399. + #include <string.h>
  400. + 
  401. + /* characters used to separate components in a path list */
  402. + #define PATHSEP1        ':'
  403. + #define PATHSEP2        ','
  404. + 
  405. + /* characters used to separate directory names in a file */
  406. + #define DIRSEP1         '\\'    /* native OS directory separator */
  407. + #define DIRSEP2         '/'     /* for emulating another OS */
  408. + 
  409. + static char *const nullext[] = { NULL };
  410. + 
  411. + static int EXISTS __PROTO((const char *));
  412. + 
  413. + static int
  414. + EXISTS(name)
  415. +     const char *name;
  416. + {
  417. +     struct stat dummy;
  418. + 
  419. +     if (stat(name, &dummy) != 0)
  420. +         return 0;
  421. +     if ( (dummy.st_mode & S_IFMT) != S_IFREG )
  422. +         return 0;
  423. +     return 1;
  424. + }
  425. + 
  426. + 
  427. + char *
  428. + _buffindfile(fname, fpath, fext, try)
  429. +       const char *fname, *fpath;
  430. +       char *const *fext, *try;
  431. + {
  432. +       char *s, *extplace, *const *nextext, c;
  433. +       const char *t;
  434. +       int  hasext = 0, haspath = 0;
  435. + 
  436. +     if (!fname || !*fname)
  437. +         return NULL;
  438. + 
  439. +       s = try; t = fname;
  440. + 
  441. + /* copy the file in, checking to see if a path and/or extension are already
  442. +    given */
  443. + 
  444. +       while ( (c = *t++) != 0 )
  445. +       {
  446. +               if (c == DIRSEP1 || c == DIRSEP2)
  447. +               {
  448. +                       haspath = 1;
  449. +                       hasext = 0;
  450. +               }
  451. +               else if (c == '.')
  452. +                       hasext = 1;
  453. +               *s++ = c;
  454. +       }
  455. +       extplace = s;
  456. +       *s = 0;
  457. + 
  458. +       if (haspath || !fpath)
  459. +               fpath = "";
  460. +       if (hasext || !fext)
  461. +               fext = nullext;
  462. + 
  463. +       for(;;) {               /* loop on path elements */
  464. +               nextext = fext;
  465. +         if (!hasext) {
  466. +             extplace[0] = 0;
  467. +             extplace[1] = 0;
  468. +         }
  469. + 
  470. +         if (EXISTS(try))
  471. +             return try;
  472. +         extplace[0] = '.';
  473. +               while(*nextext) {       /* loop on extensions */
  474. +                       (void)strcpy(&extplace[1], *nextext++);
  475. +                       if (EXISTS(try))
  476. +                               return try;
  477. +               }
  478. +               if (!*fpath) break;  /* no more places to look */
  479. + 
  480. + /* copy in next element of path list */
  481. +               s = try;
  482. +         /* an attempt to accomodate within reason TOS specs  -- mj */
  483. +         if (*(fpath + 1) == ':') {
  484. +             if ((*(fpath + 2) == DIRSEP1 ||
  485. +                  *(fpath + 2) == DIRSEP2)   &&
  486. +                 (*fpath != '.' && *fpath != ':')) {
  487. +                 *s++ = *fpath++;
  488. +                 *s++ = *fpath++;
  489. +                 *s++ = *fpath++;
  490. +             }
  491. +         }
  492. +               while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  493. +                       *s++ = c;
  494. +                       fpath++;
  495. +               }
  496. +               if (c)
  497. +                       fpath++;
  498. +               *s++ = DIRSEP1;
  499. +               t = fname;
  500. +               while ((*s++ = *t++) != 0)
  501. +                       ;
  502. +               extplace = --s ;        /* where the extension gets written */
  503. +       }
  504. +       return NULL;
  505. + }
  506. *** 41.1    1993/11/03 13:33:02
  507. --- bzero.cpp    1993/12/01 20:44:42
  508. ***************
  509. *** 29,35 ****
  510. --- 29,37 ----
  511.       movl    sp@(12),d1    | length
  512.   #endif
  513.       jeq    exit        | length==0? (size_t)
  514. + #ifdef Lbzero
  515.       jra    do_set
  516. + #endif
  517.   #endif /* Lmemset */
  518.   
  519.   #ifdef Lbzero
  520. *** 41.1    1993/11/03 13:33:02
  521. --- fdopen.c    1994/01/13 09:37:10
  522. ***************
  523. *** 5,10 ****
  524. --- 5,12 ----
  525.   #include <unistd.h>
  526.   #include <errno.h>
  527.   
  528. + extern int __mint;
  529. + 
  530.   FILE *fdopen(h, mode)
  531.       register int h;
  532.       register const char *mode;
  533. ***************
  534. *** 59,65 ****
  535.           iomode |= O_RDWR;
  536.   
  537.       if(isatty(h))
  538. !         f |= (_IODEV | _IONBF);
  539.       else
  540.           f |= _IOFBF;
  541.       fp->_file = h;            /* file handle */
  542. --- 61,67 ----
  543.           iomode |= O_RDWR;
  544.   
  545.       if(isatty(h))
  546. !         f |= __mint ? (_IODEV | _IONBF | _IOBIN) : (_IODEV | _IONBF);
  547.       else
  548.           f |= _IOFBF;
  549.       fp->_file = h;            /* file handle */
  550. *** 41.1    1993/11/03 13:33:02
  551. --- findfile.c    1994/01/13 13:01:34
  552. ***************
  553. *** 1,137 ****
  554. - /* findfile: given a base filename, a list of directories, and a list
  555. -    of possible extensions to the filename, attempts to find a file.
  556. -    Useful for doing, e.g. spawnvp. Note that the current directory
  557. -    is always searched first! If the filename already contains a
  558. -    path specification (or extension) then the given path list
  559. -    (or extension list) is ignored.
  560. -    Returns the name by which the file was found, or NULL.
  561. - 
  562. -    Written by Eric R. Smith and placed in the public domain.
  563. - 
  564. -    rehacked by Uwe Ohse, 28.4.93, to support reentrant spawn/popen.
  565. - */
  566. - 
  567.   #include <compiler.h>
  568.   #include <limits.h>    /* needed for PATH_MAX */
  569.   #include <support.h>
  570. - #include <stddef.h>
  571. - #include <types.h>
  572. - #include <stat.h>
  573. - #include <string.h>
  574. - 
  575. - /* characters used to separate components in a path list */
  576. - #define PATHSEP1        ':'
  577. - #define PATHSEP2        ','
  578. - 
  579. - /* characters used to separate directory names in a file */
  580. - #define DIRSEP1         '\\'    /* native OS directory separator */
  581. - #define DIRSEP2         '/'     /* for emulating another OS */
  582. - 
  583. - static char *const nullext[] = { NULL };
  584.   
  585. - static int EXISTS __PROTO((const char *));
  586. - 
  587. - static int
  588. - EXISTS(name)
  589. -     const char *name;
  590. - {
  591. -     struct stat dummy;
  592. - 
  593. -     if (stat(name, &dummy) != 0)
  594. -         return 0;
  595. -     if ( (dummy.st_mode & S_IFMT) != S_IFREG )
  596. -         return 0;
  597. -     return 1;
  598. - }
  599. - 
  600. - 
  601.   char *
  602.   findfile(fname, fpath, fext)
  603.           const char *fname, *fpath;
  604.       char *const *fext;
  605.   {
  606. !       /* simply calls buffindfile */
  607.         static char try[PATH_MAX];
  608. !       return buffindfile(fname,fpath,fext,try);
  609. ! }
  610. ! 
  611. ! 
  612. ! char *
  613. ! buffindfile(fname, fpath, fext, try)
  614. !       const char *fname, *fpath;
  615. !       char *const *fext, *try;
  616. ! {
  617. !       char *s, *extplace, *const *nextext, c;
  618. !       const char *t;
  619. !       int  hasext = 0, haspath = 0;
  620. ! 
  621. !     if (!fname || !*fname)
  622. !         return NULL;
  623. ! 
  624. !       s = try; t = fname;
  625. ! 
  626. ! /* copy the file in, checking to see if a path and/or extension are already
  627. !    given */
  628. ! 
  629. !       while ( (c = *t++) != 0 )
  630. !       {
  631. !               if (c == DIRSEP1 || c == DIRSEP2)
  632. !               {
  633. !                       haspath = 1;
  634. !                       hasext = 0;
  635. !               }
  636. !               else if (c == '.')
  637. !                       hasext = 1;
  638. !               *s++ = c;
  639. !       }
  640. !       extplace = s;
  641. !       *s = 0;
  642. ! 
  643. !       if (haspath || !fpath)
  644. !               fpath = "";
  645. !       if (hasext || !fext)
  646. !               fext = nullext;
  647. ! 
  648. !       for(;;) {               /* loop on path elements */
  649. !               nextext = fext;
  650. !         if (!hasext) {
  651. !             extplace[0] = 0;
  652. !             extplace[1] = 0;
  653. !         }
  654. ! 
  655. !         if (EXISTS(try))
  656. !             return try;
  657. !         extplace[0] = '.';
  658. !               while(*nextext) {       /* loop on extensions */
  659. !                       (void)strcpy(&extplace[1], *nextext++);
  660. !                       if (EXISTS(try))
  661. !                               return try;
  662. !               }
  663. !               if (!*fpath) break;  /* no more places to look */
  664. ! 
  665. ! /* copy in next element of path list */
  666. !               s = try;
  667. !         /* an attempt to accomodate within reason TOS specs  -- mj */
  668. !         if (*(fpath + 1) == ':') {
  669. !             if ((*(fpath + 2) == DIRSEP1 ||
  670. !                  *(fpath + 2) == DIRSEP2)   &&
  671. !                 (*fpath != '.' && *fpath != ':')) {
  672. !                 *s++ = *fpath++;
  673. !                 *s++ = *fpath++;
  674. !                 *s++ = *fpath++;
  675. !             }
  676. !         }
  677. !               while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  678. !                       *s++ = c;
  679. !                       fpath++;
  680. !               }
  681. !               if (c)
  682. !                       fpath++;
  683. !               *s++ = DIRSEP1;
  684. !               t = fname;
  685. !               while ((*s++ = *t++) != 0)
  686. !                       ;
  687. !               extplace = --s ;        /* where the extension gets written */
  688. !       }
  689. !       return NULL;
  690.   }
  691. --- 1,13 ----
  692.   #include <compiler.h>
  693.   #include <limits.h>    /* needed for PATH_MAX */
  694.   #include <support.h>
  695.   
  696.   char *
  697.   findfile(fname, fpath, fext)
  698.           const char *fname, *fpath;
  699.       char *const *fext;
  700.   {
  701. !       /* simply calls _buffindfile */
  702.         static char try[PATH_MAX];
  703. !       return _buffindfile(fname,fpath,fext,try);
  704.   }
  705. *** 41.1    1993/11/03 13:33:02
  706. --- fopen.c    1994/01/09 11:11:58
  707. ***************
  708. *** 71,81 ****
  709.           return(NULL);        /* file open/create error */
  710.           }
  711.       if(isatty(h))
  712. !         f |= (_IODEV | _IOLBF);
  713.       else
  714.           f |= _IOFBF;
  715.       fp->_file = h;            /* file handle */
  716.       fp->_flag = f;            /* file status flags */
  717.   
  718.       return(fp);
  719.       }
  720. --- 71,83 ----
  721.           return(NULL);        /* file open/create error */
  722.           }
  723.       if(isatty(h))
  724. !         f |= __mint ? (_IODEV | _IONBF| _IOBIN) : (_IODEV | _IONBF);
  725.       else
  726.           f |= _IOFBF;
  727.       fp->_file = h;            /* file handle */
  728.       fp->_flag = f;            /* file status flags */
  729. +     if (iomode & O_APPEND)
  730. +         (void) fseek(fp, 0L, SEEK_END);
  731.   
  732.       return(fp);
  733.       }
  734. *** 41.1    1993/11/03 13:33:02
  735. --- getpw.c    1993/11/30 20:40:30
  736. ***************
  737. *** 382,392 ****
  738.       *cp++ = 0x00;
  739.       curentry.pw_dir = cp;
  740.       for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  741. !       ;
  742.       *cp++ = 0x00;
  743.       curentry.pw_shell = cp;
  744.       for (; ((*cp != 0x00) && (*cp != ':') && (*cp != '\n')); cp++)
  745. !       ;
  746.       *cp = 0x00;
  747.       if (curentry.pw_age == NULL)
  748.         curentry.pw_age = cp; /* Don't return NULL, return a null string */
  749. --- 382,394 ----
  750.       *cp++ = 0x00;
  751.       curentry.pw_dir = cp;
  752.       for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  753. !       if (*cp == '\\')
  754. !     *cp = '/';
  755.       *cp++ = 0x00;
  756.       curentry.pw_shell = cp;
  757.       for (; ((*cp != 0x00) && (*cp != ':') && (*cp != '\n')); cp++)
  758. !       if (*cp == '\\')
  759. !     *cp = '/';
  760.       *cp = 0x00;
  761.       if (curentry.pw_age == NULL)
  762.         curentry.pw_age = cp; /* Don't return NULL, return a null string */
  763. *** 41.1    1993/11/03 13:33:02
  764. --- lib.h    1993/11/30 18:49:56
  765. ***************
  766. *** 63,69 ****
  767.   __EXTERN void    _setstack    __PROTO((char *));
  768.   __EXTERN void    _crtinit    __PROTO((void));
  769.   __EXTERN void    _acc_main    __PROTO((void));
  770. ! __EXTERN __EXITING    __exit    __PROTO((long status));
  771.   
  772.   __EXTERN void    _fclose_all_files __PROTO((void));
  773.   /* from the TOS GCC library */
  774. --- 63,69 ----
  775.   __EXTERN void    _setstack    __PROTO((char *));
  776.   __EXTERN void    _crtinit    __PROTO((void));
  777.   __EXTERN void    _acc_main    __PROTO((void));
  778. ! __EXTERN __EXITING    __exit    __PROTO((long status)) __NORETURN;
  779.   
  780.   __EXTERN void    _fclose_all_files __PROTO((void));
  781.   /* from the TOS GCC library */
  782. *** 41.1    1993/11/03 13:33:02
  783. --- libgcc2.c    1993/11/30 18:50:02
  784. ***************
  785. *** 36,41 ****
  786. --- 36,46 ----
  787.   #include "gstddef.h"
  788.   #endif
  789.   
  790. + /* Don't use `fancy_abort' here even if config.h says to use it.  */
  791. + #ifdef abort
  792. + #undef abort
  793. + #endif
  794. + 
  795.   #else
  796.   
  797.   /* For the atari, include the relevant parts of config/m68k.h directly. */
  798. ***************
  799. *** 55,63 ****
  800.   #include <stddef.h>
  801.   #endif
  802.   
  803. ! /* Define this if most significant byte of a word is the lowest numbered.  */
  804. ! /* That is true on the 68000.  */
  805. ! #define BYTES_BIG_ENDIAN 1
  806.   
  807.   /* Define this if most significant word of a multiword number is the lowest
  808.      numbered.  */
  809. --- 60,77 ----
  810.   #include <stddef.h>
  811.   #endif
  812.   
  813. ! #if 1
  814. ! /* Define for XFmode extended real floating point support.  */
  815. ! #define LONG_DOUBLE_TYPE_SIZE 96
  816. ! #else
  817. ! /* Don't try using XFmode.  */
  818. ! #define LONG_DOUBLE_TYPE_SIZE 64
  819. ! #endif
  820. ! 
  821. ! /* Define this if most significant bit is lowest numbered
  822. !    in instructions that operate on numbered bit-fields.
  823. !    This is true for 68020 insns such as bfins and bfexts.  */
  824. ! #define BITS_BIG_ENDIAN 1
  825.   
  826.   /* Define this if most significant word of a multiword number is the lowest
  827.      numbered.  */
  828. ***************
  829. *** 69,76 ****
  830.   /* number of bits in an addressable storage unit */
  831.   #define BITS_PER_UNIT 8
  832.   
  833. ! /* for this file this is always true, never compile anything in here with
  834. !    -mshort */
  835.   #define BITS_PER_WORD 32
  836.   
  837.   /* This is the library routine that is used
  838. --- 83,92 ----
  839.   /* number of bits in an addressable storage unit */
  840.   #define BITS_PER_UNIT 8
  841.   
  842. ! /* Width in bits of a "word", which is the contents of a machine register.
  843. !    Note that this is not necessarily the width of data type `int';
  844. !    if using 16-bit ints on a 68000, this would still be 32.
  845. !    But on a machine with 16-bit registers, this would be 16.  */
  846.   #define BITS_PER_WORD 32
  847.   
  848.   /* This is the library routine that is used
  849. ***************
  850. *** 172,177 ****
  851. --- 188,199 ----
  852.   
  853.   extern DItype __fixunssfdi (SFtype a);
  854.   extern DItype __fixunsdfdi (DFtype a);
  855. + #if LONG_DOUBLE_TYPE_SIZE == 96
  856. + extern DItype __fixunsxfdi (XFtype a);
  857. + #endif
  858. + #if LONG_DOUBLE_TYPE_SIZE == 128
  859. + extern DItype __fixunstfdi (TFtype a);
  860. + #endif
  861.   
  862.   #if defined (L_negdi2) || defined (L_divdi3) || defined (L_moddi3)
  863.   #if defined (L_divdi3) || defined (L_moddi3)
  864. ***************
  865. *** 697,702 ****
  866. --- 719,725 ----
  867.   
  868.   #ifdef L_divdi3
  869.   UDItype __udivmoddi4 ();
  870. + 
  871.   DItype
  872.   __divdi3 (u, v)
  873.        DItype u, v;
  874. ***************
  875. *** 1094,1100 ****
  876.   #endif
  877.   
  878.   #if defined(L_fixunsxfsi) && LONG_DOUBLE_TYPE_SIZE == 96
  879. ! #include "glimits.h"
  880.   
  881.   USItype
  882.   __fixunsxfsi (a)
  883. --- 1117,1123 ----
  884.   #endif
  885.   
  886.   #if defined(L_fixunsxfsi) && LONG_DOUBLE_TYPE_SIZE == 96
  887. ! #include <limits.h>
  888.   
  889.   USItype
  890.   __fixunsxfsi (a)
  891. ***************
  892. *** 1150,1162 ****
  893.   
  894.   /* frills for C++ */
  895.   
  896. ! #ifdef L_builtin_new
  897.   #include <memory.h>
  898.   
  899.   typedef void (*vfp)(void);
  900.   
  901.   extern vfp __new_handler;
  902.   
  903.   void *
  904.   __builtin_new (size_t sz)
  905.   {
  906. --- 1173,1186 ----
  907.   
  908.   /* frills for C++ */
  909.   
  910. ! #ifdef L_op_new
  911.   #include <memory.h>
  912.   
  913.   typedef void (*vfp)(void);
  914.   
  915.   extern vfp __new_handler;
  916.   
  917. + /* void * operator new (size_t sz) */
  918.   void *
  919.   __builtin_new (size_t sz)
  920.   {
  921. ***************
  922. *** 1170,1178 ****
  923.       (*__new_handler) ();
  924.     return p;
  925.   }
  926. ! #endif
  927.   
  928. ! #ifdef L_caps_New
  929.   
  930.     /* Avoid forcing the library's meaning of `write' on the user program
  931.        by using the "internal" name (for use within the library)  */
  932. --- 1194,1202 ----
  933.       (*__new_handler) ();
  934.     return p;
  935.   }
  936. ! #endif /* L_op_new */
  937.   
  938. ! #ifdef L_new_handler
  939.   
  940.     /* Avoid forcing the library's meaning of `write' on the user program
  941.        by using the "internal" name (for use within the library)  */
  942. ***************
  943. *** 1185,1215 ****
  944.   
  945.   vfp __new_handler = default_new_handler;
  946.   
  947. - void *
  948. - __builtin_vec_new (p, maxindex, size, ctor)
  949. -      void *p;
  950. -      size_t maxindex;
  951. -      size_t size;
  952. -      void (*ctor)(void *);
  953. - {
  954. -   size_t i;
  955. -   size_t nelts = maxindex + 1;
  956. -   void *rval;
  957. - 
  958. -   if (p == 0)
  959. -     p = __builtin_new (nelts * size);
  960. - 
  961. -   rval = p;
  962. - 
  963. -   for (i = 0; i < nelts; i++)
  964. -     {
  965. -       (*ctor) (p);
  966. -       p += size;
  967. -     }
  968. - 
  969. -   return rval;
  970. - }
  971. - 
  972.   vfp
  973.   __set_new_handler (handler)
  974.        vfp handler;
  975. --- 1209,1214 ----
  976. ***************
  977. *** 1243,1283 ****
  978.     _exit (-1);
  979.   }
  980.   #endif
  981. - 
  982. - #ifdef L_builtin_del
  983. - typedef void (*vfp)(void);
  984.   
  985.   void
  986.   __builtin_delete (void *ptr)
  987.   {
  988.     if (ptr)
  989.       free (ptr);
  990.   }
  991. - 
  992. - void
  993. - __builtin_vec_delete (ptr, maxindex, size, dtor, auto_delete_vec, auto_delete)
  994. -      void *ptr;
  995. -      size_t maxindex;
  996. -      size_t size;
  997. -      void (*dtor)(void *, int);
  998. -      int auto_delete;
  999. - {
  1000. -   size_t i;
  1001. -   size_t nelts = maxindex + 1;
  1002. -   void *p = ptr;
  1003. - 
  1004. -   ptr += nelts * size;
  1005. - 
  1006. -   for (i = 0; i < nelts; i++)
  1007. -     {
  1008. -       ptr -= size;
  1009. -       (*dtor) (ptr, auto_delete);
  1010. -     }
  1011. - 
  1012. -   if (auto_delete_vec)
  1013. -     __builtin_delete (p);
  1014. - }
  1015. - 
  1016.   #endif
  1017.   
  1018.   #ifdef L_trampoline
  1019. --- 1242,1256 ----
  1020.     _exit (-1);
  1021.   }
  1022.   #endif
  1023.   
  1024. + #ifdef L_op_delete
  1025. + /* void operator delete (void *ptr) */
  1026.   void
  1027.   __builtin_delete (void *ptr)
  1028.   {
  1029.     if (ptr)
  1030.       free (ptr);
  1031.   }
  1032.   #endif
  1033.   
  1034.   #ifdef L_trampoline
  1035. *** 41.1    1993/11/03 13:33:02
  1036. --- longlong.h    1993/11/30 18:50:08
  1037. ***************
  1038. *** 411,443 ****
  1039.          : "=d" ((USItype)(count))                    \
  1040.          : "od" ((USItype)(x)), "n" (0))
  1041.   #else /* not mc68020 */
  1042.   #define umul_ppmm(xh, xl, a, b) \
  1043.     __asm__ ("| Inlined umul_ppmm
  1044. !     movel    %2,d0
  1045. !     movel    %3,d1
  1046. !     movel    d0,d2
  1047. !     swap    d0
  1048. !     movel    d1,d3
  1049. !     swap    d1
  1050. !     movew    d2,d4
  1051. !     mulu    d3,d4
  1052. !     mulu    d1,d2
  1053. !     mulu    d0,d3
  1054. !     mulu    d0,d1
  1055. !     movel    d4,d0
  1056. !     eorw    d0,d0
  1057. !     swap    d0
  1058. !     addl    d0,d2
  1059. !     addl    d3,d2
  1060.       jcc    1f
  1061. !     addl    #65536,d1
  1062. ! 1:    swap    d2
  1063. !     moveq    #0,d0
  1064. !     movew    d2,d0
  1065. !     movew    d4,d2
  1066. !     movel    d2,%1
  1067. !     addl    d1,d0
  1068. !     movel    d0,%0"                            \
  1069.          : "=g" ((USItype)(xh)),                    \
  1070.            "=g" ((USItype)(xl))                    \
  1071.          : "g" ((USItype)(a)),                    \
  1072. --- 411,444 ----
  1073.          : "=d" ((USItype)(count))                    \
  1074.          : "od" ((USItype)(x)), "n" (0))
  1075.   #else /* not mc68020 */
  1076. + /* %/ inserts REGISTER_PREFIX.  */
  1077.   #define umul_ppmm(xh, xl, a, b) \
  1078.     __asm__ ("| Inlined umul_ppmm
  1079. !     movel    %2,%/d0
  1080. !     movel    %3,%/d1
  1081. !     movel    %/d0,%/d2
  1082. !     swap    %/d0
  1083. !     movel    %/d1,%/d3
  1084. !     swap    %/d1
  1085. !     movew    %/d2,%/d4
  1086. !     mulu    %/d3,%/d4
  1087. !     mulu    %/d1,%/d2
  1088. !     mulu    %/d0,%/d3
  1089. !     mulu    %/d0,%/d1
  1090. !     movel    %/d4,%/d0
  1091. !     eorw    %/d0,%/d0
  1092. !     swap    %/d0
  1093. !     addl    %/d0,%/d2
  1094. !     addl    %/d3,%/d2
  1095.       jcc    1f
  1096. !     addl    #65536,%/d1
  1097. ! 1:    swap    %/d2
  1098. !     moveq    #0,%/d0
  1099. !     movew    %/d2,%/d0
  1100. !     movew    %/d4,%/d2
  1101. !     movel    %/d2,%1
  1102. !     addl    %/d1,%/d0
  1103. !     movel    %/d0,%0"                        \
  1104.          : "=g" ((USItype)(xh)),                    \
  1105.            "=g" ((USItype)(xl))                    \
  1106.          : "g" ((USItype)(a)),                    \
  1107. *** 41.1    1993/11/03 13:33:02
  1108. --- strerror.c    1993/11/24 21:14:28
  1109. ***************
  1110. *** 118,124 ****
  1111.   
  1112.   /* Support for Kay Roemer's socket library */
  1113.   
  1114. ! char *_sock_errlist[] = {
  1115.       "Socket operation on non-socket",        /* 300 */
  1116.       "Destination address required",
  1117.       "Message too long",
  1118. --- 118,124 ----
  1119.   
  1120.   /* Support for Kay Roemer's socket library */
  1121.   
  1122. ! char *const _sock_errlist[] = {
  1123.       "Socket operation on non-socket",        /* 300 */
  1124.       "Destination address required",
  1125.       "Message too long",
  1126. *** 41.1    1993/11/03 13:33:02
  1127. --- Bugs    1994/01/09 11:14:24
  1128. ***************
  1129. *** 70,78 ****
  1130.     change only CLOCKS_PER_SEC.  CLK_TCK is used in times.c.  CLOCKS_PER_SEC
  1131.     is used in sleep.c.
  1132.   
  1133. - close.c, open.c: ++nox
  1134. -   close(0); open (...);  doesn't reopen 0 (stdin).  (or does it now?)
  1135. - 
  1136.   crtinit.c: ++nox
  1137.     Some programs like uuxqt (taylors at least) understand exit code
  1138.     EX_TEMPFAIL (75) to mean retry the command (uux job) later.  Now when
  1139. --- 70,75 ----
  1140. ***************
  1141. *** 122,127 ****
  1142. --- 119,128 ----
  1143.     [I disagree, limits.h should be strictly ANSI and is already polluted
  1144.     as it is -entropy]
  1145.   
  1146. + link.c: ++nox
  1147. +   link() returns the same error code for different things i.e. EACCESS when
  1148. +   it really means EEXIST.
  1149. + 
  1150.   localtim.c: ++nox
  1151.     Fix localtime() etc. to get the start/end DST rules from $TZ...
  1152.   
  1153. ***************
  1154. *** 149,154 ****
  1155. --- 150,160 ----
  1156.   open.c: ++nox
  1157.     Should open() do a TIOCSPGRP too when it Fforces the control tty?
  1158.     I think, but i'm not 100% sure...
  1159. +   Currently errno is set to EPATH (ENOTDIR) in some cases where UNIX would
  1160. +   give EFILNF (ENOENT).  The GEMDOS error codes should be translated by the
  1161. +   library in these cases.  This affects open() and creat(), and possibly
  1162. +   other functions as well (check access(),  unlink(), mkdir(), anything that
  1163. +   accesses files by name).
  1164.   
  1165.   pgrp.c: ++entropy
  1166.     The setsid() function never really disassociates the controlling tty from
  1167. ***************
  1168. *** 215,220 ****
  1169. --- 221,231 ----
  1170.     I'll accept it so long as there is a way (via an environment variable)
  1171.     for the user to select the emulation as it is currently working.  Fixes
  1172.     to make the emulation more robust would also be welcome. -entropy]
  1173. + 
  1174. + thread.c: ++nox
  1175. +   tfork() doesn't know about -mbaserel, had to save a4 (base pointer)
  1176. +   myself for the child.  (and all this only because we still don't have a
  1177. +   real vfork...)
  1178.   
  1179.   types.h: ++entropy
  1180.     Need ssize_t for POSIX compliance.
  1181. *** 41.1    1993/11/03 13:33:02
  1182. --- Changelog    1994/01/16 08:44:06
  1183. ***************
  1184. *** 4,9 ****
  1185. --- 4,391 ----
  1186.   Changes are listed in *reverse* order, most recent changes being
  1187.   first.
  1188.   
  1189. + PATCHLEVEL42::
  1190. + 
  1191. + ***** abs.c
  1192. + ----------------------------
  1193. + revision 41.2    
  1194. + date: 1993/11/24 20:23:16;  author: pvt1-117;  state: Exp;  lines: +7 -0
  1195. + Inline abs() and labs() for LCC.
  1196. + =============================================================================
  1197. + ***** bblink.c
  1198. + ----------------------------
  1199. + revision 41.3    
  1200. + date: 1994/01/13 08:03:50;  author: schwab;  state: Exp;  lines: +29 -26
  1201. + Fixed version of update for GCC 2.5
  1202. + ----------------------------
  1203. + revision 41.2
  1204. + date: 1993/11/30 18:51:36;  author: schwab;  state: Exp;  lines: +139 -2
  1205. + Updated for GCC 2.5
  1206. + =============================================================================
  1207. + ***** buffindf.c
  1208. + ----------------------------
  1209. + revision 41.2    
  1210. + date: 1994/01/09 09:33:20;  author: schwab;  state: Exp;
  1211. + NEW file.
  1212. + The library uses the names findfile and buffindfile which are in the
  1213. + user's namespace. findfile is not really used and should be move into
  1214. + a separate file, and buffindfile should be renamed to _buffindfile.
  1215. + I have renamed findfile.c to buffindf.c and moved the function
  1216. + findfile into a new findfile.c, and changed all callers.
  1217. + =============================================================================
  1218. + ***** bzero.cpp
  1219. + ----------------------------
  1220. + revision 41.2    
  1221. + date: 1993/12/01 20:45:46;  author: michal;  state: Exp;  lines: +2 -0
  1222. + When Lmemset is defined and not Lbzero, the jump at the bottom
  1223. + of the memset setup reduces to a zero offset jump. put a
  1224. + #ifdef Lbzero (which amounts to  really #ifdef Lmemset && Lbzero)
  1225. + around the `jra do_set'.
  1226. + =============================================================================
  1227. + ***** fdopen.c
  1228. + ----------------------------
  1229. + revision 41.3    
  1230. + date: 1994/01/13 09:37:36;  author: entropy;  state: Exp;  lines: +2 -0
  1231. + *** empty log message ***
  1232. + ----------------------------
  1233. + revision 41.2
  1234. + date: 1993/11/24 20:12:04;  author: nox;  state: Exp;  lines: +1 -1
  1235. + Use binary mode on tty's (under MiNT) to avoid extra ^M's.
  1236. + =============================================================================
  1237. + ***** findfile.c
  1238. + ----------------------------
  1239. + revision 41.2    
  1240. + date: 1994/01/09 09:29:32;  author: schwab;  state: Exp;  lines: +2 -126
  1241. + The library uses the names findfile and buffindfile which are in the
  1242. + user's namespace. findfile is not really used and should be moved into
  1243. + a separate file, and buffindfile should be renamed to _buffindfile.
  1244. + I have renamed findfile.c to buffindf.c and moved the function
  1245. + findfile into the new findfile.c, and changed all callers.
  1246. + =============================================================================
  1247. + ***** fopen.c
  1248. + ----------------------------
  1249. + revision 41.4    
  1250. + date: 1994/01/09 11:12:06;  author: nox;  state: Exp;  lines: +2 -2
  1251. + *** empty log message ***
  1252. + ----------------------------
  1253. + revision 41.3
  1254. + date: 1994/01/09 11:06:16;  author: nox;  state: Exp;  lines: +2 -0
  1255. + In _fopen() we seek to the end when file mode "a" is used (the kernel
  1256. + won't do this until the first write.)
  1257. + ----------------------------
  1258. + revision 41.2
  1259. + date: 1993/11/24 20:12:34;  author: nox;  state: Exp;  lines: +1 -1
  1260. + Use binary mode on tty's (under MiNT) to avoid extra ^M's.
  1261. + =============================================================================
  1262. + ***** getpw.c
  1263. + ----------------------------
  1264. + revision 41.2    
  1265. + date: 1993/11/30 20:40:50;  author: nox;  state: Exp;  lines: +4 -2
  1266. + Convert backslashes in the home directory in the passwd file, for backwards
  1267. + compatibility.
  1268. + =============================================================================
  1269. + ***** lib.h
  1270. + ----------------------------
  1271. + revision 41.2    
  1272. + date: 1993/11/30 18:51:48;  author: schwab;  state: Exp;  lines: +1 -1
  1273. + Use new way to declare a function that doesn't return, since
  1274. + the old way wasn't ANSI conforming.
  1275. + =============================================================================
  1276. + ***** libgcc2.c
  1277. + ----------------------------
  1278. + revision 41.2    
  1279. + date: 1993/11/30 18:51:58;  author: schwab;  state: Exp;  lines: +35 -62
  1280. + New entry points: L_builtin_new, L_caps_New and L_builtin_del are replaced
  1281. + by L_op_new, L_new_handler and L_op_delete.
  1282. + =============================================================================
  1283. + ***** longlong.h
  1284. + ----------------------------
  1285. + revision 41.2    
  1286. + date: 1993/11/30 18:52:22;  author: schwab;  state: Exp;  lines: +25 -24
  1287. + Updated for GCC 2.5
  1288. + =============================================================================
  1289. + ***** strerror.c
  1290. + ----------------------------
  1291. + revision 41.2    
  1292. + date: 1993/11/24 21:14:58;  author: schwab;  state: Exp;  lines: +1 -1
  1293. + Move _sock_errlist[] into the text segment by making it const, so that
  1294. + -mbaserel works again.
  1295. + =============================================================================
  1296. + ***** include/PatchLev.h
  1297. + ----------------------------
  1298. + revision 41.3    
  1299. + date: 1993/11/04 03:26:16;  author: entropy;  state: Exp;  lines: +0 -0
  1300. + -
  1301. + ----------------------------
  1302. + revision 41.2
  1303. + date: 1993/11/03 14:25:10;  author: entropy;  state: Exp;  lines: +1 -1
  1304. + -
  1305. + =============================================================================
  1306. + ***** include/assert.h
  1307. + ----------------------------
  1308. + revision 41.3    
  1309. + date: 1994/01/09 09:02:56;  author: lux;  state: Exp;  lines: +4 -13
  1310. + Make assert() macro more ANSI compliant by replacing the broken assert()
  1311. + macro with what was previously given as assertval(), and remove
  1312. + the assertval() macro.
  1313. + ----------------------------
  1314. + revision 41.2
  1315. + date: 1993/11/30 18:50:46;  author: schwab;  state: Exp;  lines: +1 -1
  1316. + Use new way to declare a function that doesn't return, since
  1317. + the old way wasn't ANSI conforming.
  1318. + =============================================================================
  1319. + ***** include/compiler.h
  1320. + ----------------------------
  1321. + revision 41.2    
  1322. + date: 1993/11/30 18:50:50;  author: schwab;  state: Exp;  lines: +10 -0
  1323. + Use new way to declare a function that doesn't return, since
  1324. + the old way wasn't ANSI conforming.
  1325. + =============================================================================
  1326. + ***** include/gdbm.h
  1327. + ----------------------------
  1328. + revision 41.2    
  1329. + date: 1993/12/01 20:42:48;  author: jrb;  state: Exp;  lines: +99 -21
  1330. + Synchronize with update36.
  1331. + =============================================================================
  1332. + ***** include/ioctl.h
  1333. + ----------------------------
  1334. + revision 41.2    
  1335. + date: 1993/11/24 21:09:20;  author: schwab;  state: Exp;  lines: +1 -0
  1336. + Add definition of B134.
  1337. + =============================================================================
  1338. + ***** include/math-68881.h
  1339. + ----------------------------
  1340. + revision 41.2    
  1341. + date: 1993/11/30 18:50:58;  author: schwab;  state: Exp;  lines: +112 -48
  1342. + Give inline functions const attribute instead of declaring as const.
  1343. + Fix a bug in atan2 where the function from libpml gives a different result
  1344. + on the arguments (0, -1).
  1345. + =============================================================================
  1346. + ***** include/math.h
  1347. + ----------------------------
  1348. + revision 41.2    
  1349. + date: 1993/11/24 20:08:46;  author: jrb;  state: Exp;  lines: +28 -24
  1350. + allow define NO_INLINE_MATH to override _M68881_. Also, check
  1351. + for __GNUC_INLINE__ as a pre-requisite to inlining (so the  user
  1352. + may override globally with  __NO_INLINE__.
  1353. + =============================================================================
  1354. + ***** include/minimal.h
  1355. + ----------------------------
  1356. + revision 41.2    
  1357. + date: 1993/11/30 18:51:10;  author: schwab;  state: Exp;  lines: +4 -3
  1358. + Use new way to declare a function that doesn't return, since
  1359. + the old way wasn't ANSI conforming.
  1360. + =============================================================================
  1361. + ***** include/mintbind.h
  1362. + ----------------------------
  1363. + revision 41.3    
  1364. + date: 1994/01/09 10:01:00;  author: pvt1-117;  state: Exp;  lines: +1 -1
  1365. + Some changes for Lattice C.
  1366. + ----------------------------
  1367. + revision 41.2
  1368. + date: 1993/11/24 20:50:10;  author: hohmuth;  state: Exp;  lines: +1 -1
  1369. + Fix return type of Pwaitpid() for Pure C.
  1370. + =============================================================================
  1371. + ***** include/osbind.h
  1372. + ----------------------------
  1373. + revision 41.2    
  1374. + date: 1994/01/09 10:01:28;  author: pvt1-117;  state: Exp;  lines: +3 -3
  1375. + Some changes for Lattice C.
  1376. + =============================================================================
  1377. + ***** include/stdlib.h
  1378. + ----------------------------
  1379. + revision 41.3    
  1380. + date: 1993/11/30 18:51:16;  author: schwab;  state: Exp;  lines: +3 -3
  1381. + Use new way to declare a function that doesn't return, since
  1382. + the old way wasn't ANSI conforming.
  1383. + ----------------------------
  1384. + revision 41.2
  1385. + date: 1993/11/24 20:20:46;  author: pvt1-117;  state: Exp;  lines: +10 -0
  1386. + Inline abs() and labs() for LCC.
  1387. + =============================================================================
  1388. + ***** include/support.h
  1389. + ----------------------------
  1390. + revision 41.3    
  1391. + date: 1994/01/09 09:28:44;  author: schwab;  state: Exp;  lines: +1 -1
  1392. + Rename buffindfile() to _buffindfile().
  1393. + ----------------------------
  1394. + revision 41.2
  1395. + date: 1993/11/30 18:51:22;  author: schwab;  state: Exp;  lines: +2 -2
  1396. + Use new way to declare a function that doesn't return, since
  1397. + the old way wasn't ANSI conforming.
  1398. + =============================================================================
  1399. + ***** include/termios.h
  1400. + ----------------------------
  1401. + revision 41.2    
  1402. + date: 1993/11/24 21:10:38;  author: schwab;  state: Exp;  lines: +1 -0
  1403. + Add definition of B134.
  1404. + =============================================================================
  1405. + ***** include/unistd.h
  1406. + ----------------------------
  1407. + revision 41.2    
  1408. + date: 1993/11/30 18:51:28;  author: schwab;  state: Exp;  lines: +1 -1
  1409. + Use new way to declare a function that doesn't return, since
  1410. + the old way wasn't ANSI conforming.
  1411. + =============================================================================
  1412. + ***** dup.c
  1413. + ----------------------------
  1414. + revision 41.2    
  1415. + date: 1994/01/09 10:31:12;  author: roemer;  state: Exp;  lines: +3 -1
  1416. + Make dup2(x, x) return x without doing anything, instead of failing.
  1417. + [I also removed the "close(handle2);" since this violates POSIX and
  1418. + the Fforce() already closes the target handle for us -entropy]
  1419. + =============================================================================
  1420. + ***** execp.c
  1421. + ----------------------------
  1422. + revision 41.2    
  1423. + date: 1994/01/09 09:28:56;  author: schwab;  state: Exp;  lines: +1 -1
  1424. + Rename buffindfile() to _buffindfile().
  1425. + =============================================================================
  1426. + ***** fopenp.c
  1427. + ----------------------------
  1428. + revision 41.2    
  1429. + date: 1994/01/09 09:29:04;  author: schwab;  state: Exp;  lines: +1 -1
  1430. + Rename buffindfile() to _buffindfile().
  1431. + =============================================================================
  1432. + ***** main.c
  1433. + ----------------------------
  1434. + revision 41.4    
  1435. + date: 1994/01/09 10:15:48;  author: dsb;  state: Exp;  lines: +32 -30
  1436. + Cast malloc() calls for HSC.
  1437. + ----------------------------
  1438. + revision 41.3
  1439. + date: 1994/01/09 09:11:18;  author: dirk_haun;  state: Exp;  lines: +2 -2
  1440. + Some time ago, I reported a bug in main.c of MiNT lib PL39, which destroys
  1441. + long PATH enviroment variables. Unfortunately, the bugfix itself was buggy
  1442. + :-( If PATH consisted only of a null byte, followed by the root directory of
  1443. + the boot drive, the result was garbage.  E.g. PATH=\0C:\\ resulted in
  1444. + PATH=/dev/c/nvurhgb so we allow for a size increase of up to five times the
  1445. + original instead of four.
  1446. + ----------------------------
  1447. + revision 41.2
  1448. + date: 1993/11/24 20:35:52;  author: dirk_haun;  state: Exp;  lines: +2 -2
  1449. + _path_dos2unx enlarges the path by at most *four* times the number of
  1450. + elements, not two (with the old code, ";C:\;C:\CMD;E:\METAFONT" becomes
  1451. + ":/dev/c/:/dev/c/cmd:/dev/e/meta".
  1452. + =============================================================================
  1453. + ***** mincl
  1454. + ----------------------------
  1455. + revision 41.3    
  1456. + date: 1994/01/09 11:15:20;  author: entropy;  state: Exp;  lines: +1 -1
  1457. + *** empty log message ***
  1458. + ----------------------------
  1459. + revision 41.2
  1460. + date: 1993/11/30 18:52:44;  author: schwab;  state: Exp;  lines: +2 -2
  1461. + Add new libgcc2 targets.
  1462. + =============================================================================
  1463. + ***** open.c
  1464. + ----------------------------
  1465. + revision 41.2    
  1466. + date: 1994/01/09 10:47:04;  author: roemer;  state: Exp;  lines: +3 -2
  1467. + O_EXCL was being used incorrectly.  It is only used in relation to
  1468. + O_CREAT and has nothing to do with file sharing modes.  So we add
  1469. + it to modemask (allowing it to be passed through to Fopen()) and always
  1470. + use O_DENYNONE.
  1471. + =============================================================================
  1472. + ***** scanf.c
  1473. + ----------------------------
  1474. + revision 41.2    
  1475. + date: 1994/01/09 09:56:18;  author: schab;  state: Exp;  lines: +230 -182
  1476. + The patch corrects these two bugs:
  1477. + - sscanf ("1", "%d%n", &i, &n) fails to set n, generally the value was
  1478. + off-by-one in the other cases
  1479. + - sscanf ("0x10", "%x", &i) sets i to 0 instead of 16
  1480. + 
  1481. + Additionally i have implemented %p and %Lf (the latter only for
  1482. + M68881, since there is no long double support without fpu yet), and i
  1483. + have restructured the code to make it more efficient.
  1484. + =============================================================================
  1485. + ***** spawn.c
  1486. + ----------------------------
  1487. + revision 41.3    
  1488. + date: 1994/01/09 09:29:10;  author: schwab;  state: Exp;  lines: +1 -1
  1489. + Rename buffindfile() to _buffindfile().
  1490. + ----------------------------
  1491. + revision 41.2
  1492. + date: 1993/11/24 21:06:22;  author: schwab;  state: Exp;  lines: +8 -5
  1493. + When running the interpreter for a script, the full pathname of the
  1494. + script should be passed, and not only the string from argv[0]. The
  1495. + latter normally does not include a path if the script was found
  1496. + through $PATH.
  1497. + =============================================================================
  1498. + ***** spawnvp.c
  1499. + ----------------------------
  1500. + revision 41.2    
  1501. + date: 1994/01/09 09:29:24;  author: schwab;  state: Exp;  lines: +1 -1
  1502. + Rename buffindfile() to _buffindfile().
  1503. + =============================================================================
  1504. + ***** sync.c
  1505. + ----------------------------
  1506. + revision 41.2    
  1507. + date: 1994/01/09 09:52:04;  author: schwab;  state: Exp;  lines: +9 -1
  1508. + fsync() uses the value from st_dev in the stat structure to form a
  1509. + pathname for Dcntl. This value can be > 0x100 for filesystems mounted
  1510. + via FS_MOUNT. Currently there is no way to sync such a filesystem, i
  1511. + have changed fsync to just return successfully in this case.
  1512. + =============================================================================
  1513. + ***** tcattr.c
  1514. + ----------------------------
  1515. + revision 41.2    
  1516. + date: 1993/11/24 21:11:36;  author: schwab;  state: Exp;  lines: +4 -5
  1517. + Make better mappings between termios attributes and real attributes,
  1518. + and fix typos.
  1519. + =============================================================================
  1520. + ***** thread.c
  1521. + ----------------------------
  1522. + revision 41.3    
  1523. + date: 1994/01/09 18:13:30;  author: entropy;  state: Exp;  lines: +21 -0
  1524. + entropy's attempt at implementing nox's idea for getting tfork() to
  1525. + work with -mbaserel.  Untested.
  1526. + ----------------------------
  1527. + revision 41.2
  1528. + date: 1994/01/09 09:49:06;  author: schwab;  state: Exp;  lines: +2 -2
  1529. + This patch for MiNTlib PL41 fixes the memory leak. It just moves the
  1530. + calls to Mfree to the right place.
  1531. + =============================================================================
  1532. + ***** unx2dos.c
  1533. + ----------------------------
  1534. + revision 41.2    
  1535. + date: 1994/01/09 09:46:10;  author: schwab;  state: Exp;  lines: +6 -4
  1536. + When given an empty path, _path_unx2dos/_path_dos2unx trash the byte
  1537. + before the supplied buffer. This can be seen by executing
  1538. + PATH= printenv
  1539. + (under sh or bash), there will be a line beginning with "PATH", but no
  1540. + equal sign and probably some garbage behind.
  1541. + =============================================================================
  1542. + ***** crlf/crlf.c
  1543. + ----------------------------
  1544. + revision 41.3    
  1545. + date: 1994/01/09 14:38:22;  author: entropy;  state: Exp;  lines: +386 -386
  1546. + *** empty log message ***
  1547. + ----------------------------
  1548. + revision 41.2
  1549. + date: 1994/01/09 14:35:58;  author: entropy;  state: Exp;  lines: +386 -296
  1550. + Merged changes from Markus Kilbinger and Martin Koehling.
  1551. + =============================================================================
  1552. + ***** crlf/crlf.doc
  1553. + ----------------------------
  1554. + revision 41.2    
  1555. + date: 1994/01/09 14:40:52;  author: entropy;  state: Exp;  lines: +7 -3
  1556. + *** empty log message ***
  1557. + =============================================================================
  1558. + ***** crlf/crlf.ttp
  1559. + ----------------------------
  1560. + revision 41.2    
  1561. + date: 1994/01/09 14:42:16;  author: entropy;  state: Exp;  lines: +276 -271
  1562. + *** empty log message ***
  1563. + =============================================================================
  1564. + ***** crlf/makefile
  1565. + ----------------------------
  1566. + revision 41.2    
  1567. + date: 1994/01/09 14:42:46;  author: entropy;  state: Exp;  lines: +1 -3
  1568. + *** empty log message ***
  1569. + =============================================================================
  1570. + 
  1571.   PATCHLEVEL41::
  1572.   
  1573.   ***** nlist.c
  1574. *** 41.1    1993/11/03 13:33:02
  1575. --- Files    1994/01/09 09:41:32
  1576. ***************
  1577. *** 7,40 ****
  1578.   _normsf.cpp   _truncdf.cpp  _udivmod.s      _umulsi3.s    a64l.c \
  1579.   abort.c          abs.c        access.c      alglobal.c    alloca.cpp \
  1580.   alphasor.c    atof.c        atol.c      bblink.c    bcmp.c \
  1581. ! bcopy.cpp     binmode.c        bsearch.c      bzero.cpp    calloc.c \
  1582. ! chdir.c          chmod.c        ctermid.c      ctime.c    ctype.c \
  1583. ! cuserid.c     defmode.c        difftime.c      div.c        div.cpp \
  1584. ! doprnt.c      eprintf.c        errbase.h      fclose.c    fdopen.c \
  1585. ! fflush.c      ffs.c        fgetc.c      fgets.c    filbuf.c \
  1586. ! findfile.c    flonum.h        fopen.c      fprintf.c    fputc.c \
  1587. ! fputs.c          fread.c        frexp.cpp      frwbin.c    fseek.c \
  1588. ! fsetpos.c     ftw.c        fungetc.c      fwrite.c    gbl-ctors.h \
  1589. ! getbuf.c      getenv.c        getlogin.c      getopt.c    getpass.c \
  1590. ! getpid.c      getpw.c        gets.c      getuid.c    getw.c \
  1591. ! gmon.c          gnulib2.c        grp.c      ic.c        ig.c \
  1592. ! il.c          ip.c        iw.c      ldexp.cpp    lib.h \
  1593. ! libgcc1.c     libgcc2.c        linea.c      localtim.c    longlong.h \
  1594. ! lseek.c          ltoa.c        malloc.c      memccpy.c    memchr.c \
  1595. ! memcmp.c      mktemp.c        modf.cpp      nlist.c    obstack.c \
  1596. ! perror.c      pgrp.c        printf.c      psignal.c    putenv.c \
  1597. ! qsort.c          raise.c        rand.c      random.c    realloc.c \
  1598. ! regexp.c      regsup.c        sbrk.c      setbuf.c    setjmp.cpp \
  1599. ! setlocal.c    setvbuf.c        sgtty.c      siglist.c    sprintf.c \
  1600. ! stksiz.c      strcat.c        strchr.c      strcmp.c    strcoll.c \
  1601. ! strcpy.c      strcspn.c        strdup.c      strerror.c    strftime.c \
  1602. ! stricmp.c     strlen.c        strlwr.c      strncat.c    strncmp.c \
  1603. ! strncpy.c     strnicmp.c    strpbrk.c      strrchr.c    strrev.c \
  1604. ! strspn.c      strstr.c        strtok.c      strtol.c    strtoul.c \
  1605. ! strupr.c      system.c        sysvar.c      textio.c    time.c \
  1606. ! timeoday.c    tmpfile.c        tmpnam.c      toxxx.c    utime.c \
  1607. ! vfprintf.c    vprintf.c        wcmb.c      wcscat.c    wcscmp.c \
  1608. ! wcscpy.c      wcslen.c        wnull.c \
  1609.   
  1610.   MINTLIB= \
  1611.   GMakefile.16  GMakefile.32  GNUGPL2      Makefile    alarm.c \
  1612. --- 7,40 ----
  1613.   _normsf.cpp   _truncdf.cpp  _udivmod.s      _umulsi3.s    a64l.c \
  1614.   abort.c          abs.c        access.c      alglobal.c    alloca.cpp \
  1615.   alphasor.c    atof.c        atol.c      bblink.c    bcmp.c \
  1616. ! bcopy.cpp     binmode.c        bsearch.c      buffindf.c    bzero.cpp \
  1617. ! calloc.c      chdir.c        chmod.c      ctermid.c    ctime.c \
  1618. ! ctype.c          cuserid.c        defmode.c      difftime.c    div.c \
  1619. ! div.cpp          doprnt.c        eprintf.c      errbase.h    fclose.c \
  1620. ! fdopen.c      fflush.c        ffs.c      fgetc.c    fgets.c \
  1621. ! filbuf.c      findfile.c    flonum.h      fopen.c    fprintf.c \
  1622. ! fputc.c          fputs.c        fread.c      frexp.cpp    frwbin.c \
  1623. ! fseek.c          fsetpos.c        ftw.c      fungetc.c    fwrite.c \
  1624. ! gbl-ctors.h   getbuf.c        getenv.c      getlogin.c    getopt.c \
  1625. ! getpass.c     getpid.c        getpw.c      gets.c    getuid.c \
  1626. ! getw.c          gmon.c        gnulib2.c      grp.c        ic.c \
  1627. ! ig.c          il.c        ip.c      iw.c        ldexp.cpp \
  1628. ! lib.h          libgcc1.c        libgcc2.c      linea.c    localtim.c \
  1629. ! longlong.h    lseek.c        ltoa.c      malloc.c    memccpy.c \
  1630. ! memchr.c      memcmp.c        mktemp.c      modf.cpp    nlist.c \
  1631. ! obstack.c     perror.c        pgrp.c      printf.c    psignal.c \
  1632. ! putenv.c      qsort.c        raise.c      rand.c    random.c \
  1633. ! realloc.c     regexp.c        regsup.c      sbrk.c    setbuf.c \
  1634. ! setjmp.cpp    setlocal.c    setvbuf.c      sgtty.c    siglist.c \
  1635. ! sprintf.c     stksiz.c        strcat.c      strchr.c    strcmp.c \
  1636. ! strcoll.c     strcpy.c        strcspn.c      strdup.c    strerror.c \
  1637. ! strftime.c    stricmp.c        strlen.c      strlwr.c    strncat.c \
  1638. ! strncmp.c     strncpy.c        strnicmp.c      strpbrk.c    strrchr.c \
  1639. ! strrev.c      strspn.c        strstr.c      strtok.c    strtol.c \
  1640. ! strtoul.c     strupr.c        system.c      sysvar.c    textio.c \
  1641. ! time.c          timeoday.c    tmpfile.c      tmpnam.c    toxxx.c \
  1642. ! utime.c          vfprintf.c    vprintf.c      wcmb.c    wcscat.c \
  1643. ! wcscmp.c      wcscpy.c        wcslen.c      wnull.c \
  1644.   
  1645.   MINTLIB= \
  1646.   GMakefile.16  GMakefile.32  GNUGPL2      Makefile    alarm.c \
  1647. *** 41.1    1993/11/03 13:33:02
  1648. --- Makefile.adm    1993/11/04 03:28:18
  1649. ***************
  1650. *** 95,102 ****
  1651.       done
  1652.   
  1653.   newversion:
  1654. !     for dir in . $(incdir) $(incdir)/sys crlf lattice purec \
  1655. !         purec/unixname sozobon ;\
  1656.       do \
  1657.         cd $$dir ;\
  1658.         ci -l -f -m- -r$V.1 RCS/* ;\
  1659. --- 95,103 ----
  1660.       done
  1661.   
  1662.   newversion:
  1663. !     for dir in $(srcdir) $(srcdir)/crlf $(srcdir)/lattice \
  1664. !         $(srcdir)/purec $(srcdir)/purec/unixname \
  1665. !         $(srcdir)/sozobon $(incdir) $(incdir)/sys ;\
  1666.       do \
  1667.         cd $$dir ;\
  1668.         ci -l -f -m- -r$V.1 RCS/* ;\
  1669. *** 41.1    1993/11/03 13:33:02
  1670. --- PatchLev.h    1993/11/04 03:25:48
  1671. ***************
  1672. *** 3,6 ****
  1673.    *    directory.
  1674.    */
  1675.   
  1676. ! #define PatchLevel "41"
  1677. --- 3,6 ----
  1678.    *    directory.
  1679.    */
  1680.   
  1681. ! #define PatchLevel "42"
  1682. *** 41.1    1993/11/03 13:33:02
  1683. --- Version    1993/11/04 03:25:54
  1684. ***************
  1685. *** 1 ****
  1686. ! V=41
  1687. --- 1 ----
  1688. ! V=42
  1689. *** 41.1    1993/11/03 13:33:02
  1690. --- dup.c    1994/01/09 10:30:52
  1691. ***************
  1692. *** 56,62 ****
  1693.       int rv;
  1694.       long flags;
  1695.   
  1696. !     close(handle2);
  1697.       if ((rv = (int)Fforce(handle2, handle1)) < 0)
  1698.           errno = -rv;
  1699.       else {
  1700. --- 56,64 ----
  1701.       int rv;
  1702.       long flags;
  1703.   
  1704. !     if (handle1 == handle2)
  1705. !         return (handle2);
  1706. ! 
  1707.       if ((rv = (int)Fforce(handle2, handle1)) < 0)
  1708.           errno = -rv;
  1709.       else {
  1710. *** 41.1    1993/11/03 13:33:02
  1711. --- execp.c    1994/01/09 09:16:02
  1712. ***************
  1713. *** 30,36 ****
  1714.   {
  1715.       const char *execname;
  1716.       char buffer[PATH_MAX];
  1717. !     execname = buffindfile(name, getenv("PATH"), extensions,buffer);
  1718.       if (!execname) {
  1719.           errno = ENOENT;
  1720.           return -1;        /* file not found */
  1721. --- 30,36 ----
  1722.   {
  1723.       const char *execname;
  1724.       char buffer[PATH_MAX];
  1725. !     execname = _buffindfile(name, getenv("PATH"), extensions,buffer);
  1726.       if (!execname) {
  1727.           errno = ENOENT;
  1728.           return -1;        /* file not found */
  1729. *** 41.1    1993/11/03 13:33:02
  1730. --- fopenp.c    1994/01/09 09:16:06
  1731. ***************
  1732. *** 15,21 ****
  1733.       char *fullname;
  1734.       char buffer[PATH_MAX];
  1735.   
  1736. !     fullname = buffindfile(name, getenv("PATH"), (char **)0, buffer);
  1737.       if (!fullname) {
  1738.           errno = ENOENT;
  1739.           return NULL;
  1740. --- 15,21 ----
  1741.       char *fullname;
  1742.       char buffer[PATH_MAX];
  1743.   
  1744. !     fullname = _buffindfile(name, getenv("PATH"), (char **)0, buffer);
  1745.       if (!fullname) {
  1746.           errno = ENOENT;
  1747.           return NULL;
  1748. *** 41.1    1993/11/03 13:33:02
  1749. --- main.c    1994/01/09 10:09:50
  1750. ***************
  1751. *** 196,216 ****
  1752.                   }
  1753.                   
  1754.                   if (!strncmp(s, p, len) && s[len] == '=') {
  1755. !                     len++;
  1756. !                     tmp = s + len;        /* tmp now after '=' */    
  1757. !                     cnt = 1;
  1758. !                     while (*tmp) {        /* count words */
  1759. !                         if (*tmp == ';' || *tmp == ',')
  1760. !                             cnt++;
  1761. !                         tmp++;
  1762. !                     }
  1763. !                     _envp[i] = (char *) malloc(tmp - s + cnt * 2);
  1764. !                     strncpy(_envp[i], s, len);
  1765. !                     _path_dos2unx(s + len, _envp[i] + len);
  1766. !                     _envp[i] = (char *) realloc(_envp[i], 
  1767. !                         strlen(_envp[i]) + 1);
  1768. ! 
  1769. !                     break;        
  1770.                   }
  1771.                   
  1772.                   if (! *tmp) break;
  1773. --- 196,217 ----
  1774.                   }
  1775.                   
  1776.                   if (!strncmp(s, p, len) && s[len] == '=') {
  1777. !                   len++;
  1778. !                   tmp = s + len; /* tmp now after '=' */
  1779. !                   cnt = 1;
  1780. !                   while (*tmp) {  /* count words */
  1781. !                     if (*tmp == ';' || *tmp == ',')
  1782. !                       cnt++;
  1783. !                     tmp++;
  1784. !                   }
  1785. !                   _envp[i] = (char *)
  1786. !                                              malloc((size_t)
  1787. !                                                     (tmp - s + cnt * 5));
  1788. !                   strncpy(_envp[i], s, len);
  1789. !                   _path_dos2unx(s + len, _envp[i] + len);
  1790. !                   _envp[i] = (char *) realloc(_envp[i], 
  1791. !                                 strlen(_envp[i]) + 1);
  1792. !                   break;        
  1793.                   }
  1794.                   
  1795.                   if (! *tmp) break;
  1796. ***************
  1797. *** 223,243 ****
  1798.               if (s[0] == 'P' && s[1] == 'A' && s[2] == 'T' &&
  1799.                   s[3] == 'H' && s[4] == '=')
  1800.               {
  1801. !                 tmp = s + 5; /* tmp now after '=' */    
  1802. !                 cnt = 1;
  1803. !                 while (*tmp)
  1804. !                   {
  1805. !                     /* count words */
  1806. !                     if (*tmp == ';' || *tmp == ',')
  1807. !                       cnt++;
  1808. !                     tmp++;
  1809. !                   }
  1810. !                 _envp[i] = (char *) malloc(tmp - s + cnt * 2);
  1811. !                 strncpy(_envp[i], s, 5);
  1812. !                 _path_dos2unx(s + 5, _envp[i] + 5);
  1813. !                 _envp[i] = (char *) realloc(_envp[i], 
  1814. !                     strlen(_envp[i]) + 1);
  1815. !                 break;
  1816.               }
  1817.           }
  1818.       }
  1819. --- 224,245 ----
  1820.               if (s[0] == 'P' && s[1] == 'A' && s[2] == 'T' &&
  1821.                   s[3] == 'H' && s[4] == '=')
  1822.               {
  1823. !               tmp = s + 5; /* tmp now after '=' */    
  1824. !               cnt = 1;
  1825. !               while (*tmp)
  1826. !               {
  1827. !                 /* count words */
  1828. !                 if (*tmp == ';' || *tmp == ',')
  1829. !                   cnt++;
  1830. !                 tmp++;
  1831. !               }
  1832. !               _envp[i] = (char *) malloc((size_t)
  1833. !                                                      (tmp - s + cnt * 5));
  1834. !               strncpy(_envp[i], s, 5);
  1835. !               _path_dos2unx(s + 5, _envp[i] + 5);
  1836. !               _envp[i] = (char *) realloc(_envp[i], 
  1837. !                                           strlen(_envp[i]) + 1);
  1838. !               break;
  1839.               }
  1840.           }
  1841.       }
  1842. *** 41.1    1993/11/03 13:33:02
  1843. --- mincl    1994/01/09 09:38:10
  1844. ***************
  1845. *** 11,18 ****
  1846.   GLIB2 = _muldi3.o _divdi3.o _moddi3.o _udivdi3.o _umoddi3.o _negdi2.o \
  1847.       _lshrdi3.o _lshldi3.o _ashldi3.o _ashrdi3.o _udivmoddi4.o _cmpdi2.o \
  1848.       _ucmpdi2.o _floatdidf.o _floatdisf.o _fixunsdfsi.o _fixunssfsi.o \
  1849. !     _fixunsdfdi.o _fixdfdi.o _fixunssfdi.o _fixsfdi.o _builtin_new.o \
  1850. !     _caps_New.o _builtin_del.o _trampoline.o __main.o _ctor_list.o \
  1851.       _dtor_list.o _ffsdi2.o
  1852.   
  1853.   GCC=     crtinit.o stksiz.o inistack.o heapbase.o binmode.o \
  1854. --- 11,18 ----
  1855.   GLIB2 = _muldi3.o _divdi3.o _moddi3.o _udivdi3.o _umoddi3.o _negdi2.o \
  1856.       _lshrdi3.o _lshldi3.o _ashldi3.o _ashrdi3.o _udivmoddi4.o _cmpdi2.o \
  1857.       _ucmpdi2.o _floatdidf.o _floatdisf.o _fixunsdfsi.o _fixunssfsi.o \
  1858. !     _fixunsdfdi.o _fixdfdi.o _fixunssfdi.o _fixsfdi.o _op_new.o \
  1859. !     _new_handler.o _op_delete.o _trampoline.o __main.o _ctor_list.o \
  1860.       _dtor_list.o _ffsdi2.o
  1861.   
  1862.   GCC=     crtinit.o stksiz.o inistack.o heapbase.o binmode.o \
  1863. ***************
  1864. *** 43,49 ****
  1865.   
  1866.   #
  1867.   # other miscellaneous stuff
  1868. ! PORT =  a64l.o alphasor.o abs.o ctermid.o cuserid.o \
  1869.       ffs.o findfile.o fopenp.o frwbin.o ftw.o \
  1870.       gethostn.o getlogin.o getopt.o getpages.o getpass.o getpw.o grp.o \
  1871.       mktemp.o nlist.o obstack.o \
  1872. --- 43,49 ----
  1873.   
  1874.   #
  1875.   # other miscellaneous stuff
  1876. ! PORT =  a64l.o alphasor.o abs.o buffindf.o ctermid.o cuserid.o \
  1877.       ffs.o findfile.o fopenp.o frwbin.o ftw.o \
  1878.       gethostn.o getlogin.o getopt.o getpages.o getpass.o getpw.o grp.o \
  1879.       mktemp.o nlist.o obstack.o \
  1880. *** 41.1    1993/11/03 13:33:02
  1881. --- open.c    1994/01/09 10:46:32
  1882. ***************
  1883. *** 78,85 ****
  1884.       iomode = iomode & ~O_SHMODE;
  1885.   
  1886.       if (__mint >= 9) {
  1887. !         modemask = O_ACCMODE | O_SHMODE | O_SYNC | O_NDELAY | O_CREAT | O_TRUNC;
  1888. !         iomode |= (iomode & O_EXCL) ? O_DENYRW : O_DENYNONE;
  1889.           if (__mint >= 96) {
  1890.               modemask |= _REALO_APPEND;
  1891.               if (iomode & O_APPEND)
  1892. --- 78,86 ----
  1893.       iomode = iomode & ~O_SHMODE;
  1894.   
  1895.       if (__mint >= 9) {
  1896. !         modemask = O_ACCMODE | O_SHMODE | O_SYNC | O_NDELAY 
  1897. !                            | O_CREAT | O_TRUNC | O_EXCL;
  1898. !         iomode |= O_DENYNONE;
  1899.           if (__mint >= 96) {
  1900.               modemask |= _REALO_APPEND;
  1901.               if (iomode & O_APPEND)
  1902. *** 41.1    1993/11/03 13:33:02
  1903. --- scanf.c    1994/01/09 09:54:40
  1904. ***************
  1905. *** 3,9 ****
  1906.   #include <string.h>
  1907.   #include <stdarg.h>
  1908.   #include "lib.h"
  1909. !     
  1910.   /*
  1911.    * %efg were loosing big time
  1912.    *    fixed  ++jrb
  1913. --- 3,9 ----
  1914.   #include <string.h>
  1915.   #include <stdarg.h>
  1916.   #include "lib.h"
  1917. ! 
  1918.   /*
  1919.    * %efg were loosing big time
  1920.    *    fixed  ++jrb
  1921. ***************
  1922. *** 16,30 ****
  1923.   #ifndef __NO_FLOAT__
  1924.   #define FLOATS 1
  1925.   #endif
  1926. !     
  1927.   #ifndef TRUE
  1928.   #define TRUE  1
  1929.   #define FALSE 0
  1930.   #endif
  1931. -     
  1932. - extern        char    _numstr[];
  1933.   
  1934. ! #define    skip()    while(isspace(c)) { charcnt++; if ((c=(*get)(ip))<1) goto done; }
  1935.   #define TEN_MUL(X)    ((((X) << 2) + (X)) << 1)
  1936.   
  1937.   #if FLOATS
  1938. --- 16,29 ----
  1939.   #ifndef __NO_FLOAT__
  1940.   #define FLOATS 1
  1941.   #endif
  1942. ! 
  1943.   #ifndef TRUE
  1944.   #define TRUE  1
  1945.   #define FALSE 0
  1946.   #endif
  1947.   
  1948. ! #define    skip() \
  1949. !   while (isspace(c)) { charcnt++; c = (*get)(ip); if (c == EOF) goto done; }
  1950.   #define TEN_MUL(X)    ((((X) << 2) + (X)) << 1)
  1951.   
  1952.   #if FLOATS
  1953. ***************
  1954. *** 89,95 ****
  1955.    int (*unget)(int, FILE *), const char *_fmt, va_list args)
  1956.   #else
  1957.   int
  1958. ! _scanf(ip, get, unget, fmt, args)
  1959.   FILE *ip;
  1960.   int (*get) __PROTO((FILE *));
  1961.   int (*unget) __PROTO((int, FILE *));
  1962. --- 88,94 ----
  1963.    int (*unget)(int, FILE *), const char *_fmt, va_list args)
  1964.   #else
  1965.   int
  1966. ! _scanf(ip, get, unget, _fmt, args)
  1967.   FILE *ip;
  1968.   int (*get) __PROTO((FILE *));
  1969.   int (*unget) __PROTO((int, FILE *));
  1970. ***************
  1971. *** 99,262 ****
  1972.   {
  1973.       register long n;
  1974.       register int c, width, lval, sval, cnt = 0, charcnt = 1;
  1975.   #ifdef PRINTF_LONGLONG
  1976. -     register int llval=0;
  1977.       register long long lln;
  1978.   #endif
  1979. !     int store, neg, base, wide1, endnull, rngflag, c2;
  1980.       register unsigned char *p = 0;
  1981.       const unsigned char *fmt = (const unsigned char *) _fmt;
  1982. !     unsigned char delim[128], digits[17], *q;
  1983.   #if FLOATS
  1984.       double fx;
  1985.       char fbuf[128], *fbp;
  1986.       int fstate, trans;
  1987.       extern double atof __PROTO((const char *));
  1988.   #endif
  1989. !     
  1990. !     if (!*fmt)
  1991. !     return(0);
  1992. !     
  1993.       c = (*get)(ip);
  1994. !     while(c > 0)
  1995.       {
  1996. -     store = FALSE;
  1997.       if (*fmt == '%')
  1998.       {
  1999. -         n    = 0;
  2000.           width    = -1;
  2001. -         wide1    = 1;
  2002. -         base    = 10;
  2003.           lval    = FALSE;
  2004. ! #ifdef PRINTF_LONGLONG
  2005.           llval    = FALSE;
  2006. -         lln     = 0;
  2007.   #endif
  2008.           sval    = FALSE;
  2009.           store    = TRUE;
  2010. !         endnull    = TRUE;
  2011. !         neg    = -1;
  2012. !         
  2013. !         strcpy((char *)delim,  "\011\012\013\014\015 ");
  2014. !         strcpy((char *)digits, (const char *)_numstr); /* "01234567890ABCDEF" */
  2015. !         
  2016. !         if (fmt[1] == '*')
  2017.           {
  2018. !         endnull = store = FALSE;
  2019.           ++fmt;
  2020.           }
  2021. !         
  2022. !         while (isdigit(*++fmt))        /* width digit(s) */
  2023. !         {
  2024. !         if (width == -1)
  2025. !             width = 0;
  2026. !         wide1 = width = TEN_MUL(width) + (*fmt - '0');
  2027. !         }
  2028. !         --fmt;
  2029.         fmtnxt:
  2030. !         ++fmt;
  2031. !         switch(tolower(*fmt))    /* tolower() is a MACRO! */
  2032.           {
  2033. -           case '*':
  2034. -         endnull = store = FALSE;
  2035. -         goto fmtnxt;
  2036. -         
  2037.             case 'l':    /* long data */
  2038.   #ifdef PRINTF_LONGLONG
  2039.           if (lval)
  2040.               llval = TRUE;
  2041.   #endif
  2042.           lval = TRUE;
  2043.             case 'h':    /* short data (for compatibility) */
  2044.           sval = TRUE;
  2045.           goto fmtnxt;
  2046. !         
  2047.             case 'i':    /* any-base numeric */
  2048.           base = 0;
  2049.           goto numfmt;
  2050. !         
  2051. !           case 'b':    /* unsigned binary */
  2052.           base = 2;
  2053.           goto numfmt;
  2054. !         
  2055.             case 'o':    /* unsigned octal */
  2056.           base = 8;
  2057.           goto numfmt;
  2058. !         
  2059.             case 'x':    /* unsigned hexadecimal */
  2060.           base = 16;
  2061.           goto numfmt;
  2062. !         
  2063.             case 'd':    /* SIGNED decimal */
  2064. !         neg = FALSE;
  2065. !         /* FALL-THRU */
  2066. !         
  2067.             case 'u':    /* unsigned decimal */
  2068. !           numfmt:                    skip();
  2069. !         
  2070. !         if (isupper(*fmt)) {
  2071.   #ifdef PRINTF_LONGLONG
  2072.               if (lval) llval = TRUE;
  2073.   #endif
  2074.               lval = TRUE;
  2075. !         }        
  2076.           if (!base)
  2077.           {
  2078. !             base = 10;
  2079. !             neg = FALSE;
  2080. !             if (c == '%')
  2081.               {
  2082.               base = 2;
  2083.               goto skip1;
  2084.               }
  2085.               else if (c == '0')
  2086.               {
  2087.               charcnt++;
  2088.               c = (*get)(ip);
  2089. !             if (c < 1)
  2090.                   goto savnum;
  2091.               if ((c != 'x')
  2092.                   && (c != 'X'))
  2093.               {
  2094.                   base = 8;
  2095. !                 digits[8]= '\0';
  2096.                   goto zeroin;
  2097.               }
  2098.               base = 16;
  2099.               goto skip1;
  2100.               }
  2101.           }
  2102. !         
  2103. !         if ((neg == FALSE) && (base == 10)
  2104. !             && (((neg = (c == '-')) != 0) || (c == '+')))
  2105. !         {
  2106. !           skip1:
  2107.               charcnt++;
  2108. !             c = (*get)(ip);
  2109. !             if (c < 1)
  2110. !             goto done;
  2111. !         }
  2112. !         
  2113. !         digits[base] = '\0';
  2114. !         p = ((unsigned char *)
  2115. !              strchr((const char *)digits,toupper(c)));
  2116. !         
  2117. !         if ((!c || !p) && width)
  2118. !             goto done;
  2119. !         
  2120. !         while (p && width-- && c)
  2121.           {
  2122.   #ifdef PRINTF_LONGLONG
  2123.               if (llval)
  2124. !             lln = (lln * base) + (p - digits);
  2125.               else
  2126.   #endif
  2127. !             n = (n * base) + (p - digits);
  2128.               charcnt++;
  2129.               c = (*get)(ip);
  2130.             zeroin:
  2131. !             p = ((unsigned char *)
  2132. !              strchr((const char *)digits,toupper(c)));
  2133.           }
  2134.             savnum:
  2135.           if (store)
  2136. --- 98,313 ----
  2137.   {
  2138.       register long n;
  2139.       register int c, width, lval, sval, cnt = 0, charcnt = 1;
  2140. + #if defined (PRINTF_LONGLONG) || defined (__STDC__)
  2141. +     register int llval = 0;
  2142. + #endif
  2143.   #ifdef PRINTF_LONGLONG
  2144.       register long long lln;
  2145.   #endif
  2146. !     int store, neg, base, endnull, c2;
  2147.       register unsigned char *p = 0;
  2148.       const unsigned char *fmt = (const unsigned char *) _fmt;
  2149. !     char delim[256], *q;
  2150.   #if FLOATS
  2151.       double fx;
  2152.       char fbuf[128], *fbp;
  2153.       int fstate, trans;
  2154.       extern double atof __PROTO((const char *));
  2155.   #endif
  2156. ! 
  2157.       c = (*get)(ip);
  2158. !     while (*fmt)
  2159.       {
  2160.       if (*fmt == '%')
  2161.       {
  2162.           width    = -1;
  2163.           lval    = FALSE;
  2164. ! #if defined (PRINTF_LONGLONG) || defined (__STDC__)
  2165.           llval    = FALSE;
  2166.   #endif
  2167.           sval    = FALSE;
  2168.           store    = TRUE;
  2169. ! 
  2170. !         if (*++fmt == '*')
  2171.           {
  2172. !         store = FALSE;
  2173.           ++fmt;
  2174.           }
  2175. ! 
  2176. !         if (isdigit (*fmt))        /* width digit(s) */
  2177. !           {
  2178. !         width = *fmt++ - '0';
  2179. !         while (isdigit (*fmt))
  2180. !           width = TEN_MUL (width) + *fmt++ - '0';
  2181. !           }
  2182. ! 
  2183.         fmtnxt:
  2184. !         switch(*fmt++)
  2185.           {
  2186.             case 'l':    /* long data */
  2187.   #ifdef PRINTF_LONGLONG
  2188.           if (lval)
  2189.               llval = TRUE;
  2190.   #endif
  2191.           lval = TRUE;
  2192. +         goto fmtnxt;
  2193. + 
  2194. + #ifdef __STDC__
  2195. +           case 'L': /* long double */
  2196. +         llval = TRUE;
  2197. +         goto fmtnxt;
  2198. + #endif
  2199. + 
  2200.             case 'h':    /* short data (for compatibility) */
  2201.           sval = TRUE;
  2202.           goto fmtnxt;
  2203. ! 
  2204.             case 'i':    /* any-base numeric */
  2205.           base = 0;
  2206. +         neg = -1;
  2207.           goto numfmt;
  2208. ! 
  2209. !           case 'b':    /* unsigned binary, non-standard */
  2210. !           case 'B': /* non-standard */
  2211.           base = 2;
  2212. +         neg = 0;
  2213.           goto numfmt;
  2214. ! 
  2215.             case 'o':    /* unsigned octal */
  2216. +           case 'O': /* non-standard */
  2217.           base = 8;
  2218. +         neg = 0;
  2219.           goto numfmt;
  2220. ! 
  2221. !           case 'p': /* pointer */
  2222. !         lval = TRUE;
  2223. ! #ifdef PRINTF_LONGLONG
  2224. !         llval = FALSE;
  2225. ! #endif
  2226. !         /* fall through */
  2227. ! 
  2228.             case 'x':    /* unsigned hexadecimal */
  2229. +           case 'X': /* non-standard */
  2230.           base = 16;
  2231. +         neg = 0;
  2232.           goto numfmt;
  2233. ! 
  2234.             case 'd':    /* SIGNED decimal */
  2235. !           case 'D': /* non-standard */
  2236. !         base = 10;
  2237. !         neg = -1;
  2238. !         goto numfmt;
  2239. ! 
  2240.             case 'u':    /* unsigned decimal */
  2241. !           case 'U': /* non-standard */
  2242. !         base = 10;
  2243. !         neg = 0;
  2244. !           numfmt:
  2245. !         skip();
  2246. !         memset (delim, -1, sizeof (delim));
  2247. !         if (isupper(fmt[-1])) {
  2248. !             /* non-standard */
  2249.   #ifdef PRINTF_LONGLONG
  2250.               if (lval) llval = TRUE;
  2251.   #endif
  2252.               lval = TRUE;
  2253. !         }
  2254. !         n = 0;
  2255. ! #ifdef PRINTF_LONGLONG
  2256. !         lln = 0;
  2257. ! #endif
  2258. !         if (width == 0)
  2259. !           goto savnum;
  2260.           if (!base)
  2261.           {
  2262. !             if (c == '%') /* non-standard */
  2263.               {
  2264.               base = 2;
  2265. +             neg = 0;
  2266.               goto skip1;
  2267.               }
  2268.               else if (c == '0')
  2269.               {
  2270. +             if (--width == 0)
  2271. +               goto savnum;
  2272.               charcnt++;
  2273.               c = (*get)(ip);
  2274. !             if (c == EOF)
  2275.                   goto savnum;
  2276.               if ((c != 'x')
  2277.                   && (c != 'X'))
  2278.               {
  2279.                   base = 8;
  2280. !                 neg = 0;
  2281. !                 for (c2 = 0; c2 < 8; c2++)
  2282. !                   delim[c2 + '0'] = c2;
  2283.                   goto zeroin;
  2284.               }
  2285.               base = 16;
  2286. +             neg = 0;
  2287.               goto skip1;
  2288.               }
  2289. +             else
  2290. +               base = 10;
  2291.           }
  2292. ! 
  2293. !         /* Check for 0x prefix */
  2294. !         if (base == 16 && c == '0')
  2295. !           {
  2296. !             if (--width == 0)
  2297. !               goto savnum;
  2298.               charcnt++;
  2299. !             c = (*get) (ip);
  2300. !             if (c == EOF)
  2301. !               goto done;
  2302. !             if (c == 'x' || c == 'X')
  2303. !               goto skip1;
  2304. !           }
  2305. !         else if (neg == -1)
  2306. !           {
  2307. !             neg = c == '-';
  2308. !             if (neg || c == '+')
  2309. !               {
  2310. !               skip1:
  2311. !             if (--width == 0)
  2312. !               goto done;
  2313. !             charcnt++;
  2314. !             c = (*get)(ip);
  2315. !             if (c == EOF)
  2316. !               goto done;
  2317. !               }
  2318. !           }
  2319. ! 
  2320. !         /* delim[c] -> value of c or -1 */
  2321. !         p = (unsigned char *) "FEDCBAfedcba9876543210";
  2322. !         q = "\17\16\15\14\13\12\17\16\15\14\13\12\11\10\7\6\5\4\3\2\1\0";
  2323. !         if (base < 16)
  2324. !           {
  2325. !             /* skip invalid digits */
  2326. !             p += 22 - base;
  2327. !             q += 22 - base;
  2328. !           }
  2329. !         while (*p)
  2330. !           delim[*p++] = *q++;
  2331. ! 
  2332. !         if (delim[c] == (char) -1)
  2333. !           goto done;
  2334. ! 
  2335. !         while (width--)
  2336.           {
  2337.   #ifdef PRINTF_LONGLONG
  2338.               if (llval)
  2339. !             lln = (lln * base) + delim[c];
  2340.               else
  2341.   #endif
  2342. !             n = (n * base) + delim[c];
  2343.               charcnt++;
  2344.               c = (*get)(ip);
  2345. +             if (c == EOF)
  2346. +               break;
  2347.             zeroin:
  2348. !             if (delim[c] == (char) -1)
  2349. !               break;
  2350.           }
  2351.             savnum:
  2352.           if (store)
  2353. ***************
  2354. *** 269,282 ****
  2355.   #ifdef PRINTF_LONGLONG
  2356.               if (llval)
  2357.               {
  2358. !             if (neg == TRUE)
  2359.                   lln=-lln;
  2360.               *((long long*) p) = lln;
  2361.               }
  2362.               else
  2363.   #endif
  2364.               {
  2365. !             if (neg == TRUE)
  2366.                   n = -n;
  2367.               if (lval)
  2368.                   *((long*) p) = n;
  2369. --- 320,333 ----
  2370.   #ifdef PRINTF_LONGLONG
  2371.               if (llval)
  2372.               {
  2373. !             if (neg)
  2374.                   lln=-lln;
  2375.               *((long long*) p) = lln;
  2376.               }
  2377.               else
  2378.   #endif
  2379.               {
  2380. !             if (neg)
  2381.                   n = -n;
  2382.               if (lval)
  2383.                   *((long*) p) = n;
  2384. ***************
  2385. *** 288,327 ****
  2386.               }
  2387.           }
  2388.           break;
  2389. !         
  2390.   #if FLOATS
  2391.             case 'e':    /* float */
  2392.             case 'f':
  2393.             case 'g':
  2394.           skip();
  2395. !         
  2396. !         if (isupper(*fmt))
  2397. !             lval = TRUE;
  2398. !         
  2399.           fstate = FS_INIT;
  2400.           fbp = fbuf;
  2401. !         while (c && width--) {
  2402. !             if (c >= '0' && c <= '9')
  2403. !             trans = FC_DIG;
  2404. !             else if (c == '.')
  2405. !             trans = FC_DOT;
  2406. !             else if (c == '+' || c == '-')
  2407. !             trans = FC_SIGN;
  2408. !             else if (tolower(c) == 'e')
  2409. !             trans = FC_E;
  2410. !             else
  2411. !             goto fdone;
  2412. !             
  2413. !             *fbp++ = c;
  2414.   
  2415.               if (fp_do[trans][fstate] == F_QUIT)
  2416. !             goto fdone;
  2417.               fstate = fp_ns[trans][fstate];
  2418.               charcnt++;
  2419.               c = (*get)(ip);
  2420.           }
  2421. !         
  2422. !           fdone:
  2423.           *fbp = '\0';
  2424.           if (!fp_sval[fstate])
  2425.               goto done;
  2426. --- 339,380 ----
  2427.               }
  2428.           }
  2429.           break;
  2430. ! 
  2431.   #if FLOATS
  2432. +           case 'E': /* non-standard */
  2433. +           case 'F':
  2434. +           case 'G':
  2435. +         lval = TRUE;
  2436. +         /* fall through */
  2437. + 
  2438.             case 'e':    /* float */
  2439.             case 'f':
  2440.             case 'g':
  2441.           skip();
  2442. ! 
  2443. !         memset (delim, -1, sizeof (delim));
  2444. !         for (c2 = '0'; c2 <= '9'; c2++)
  2445. !           delim[c2] = FC_DIG;
  2446. !         delim['.'] = FC_DOT;
  2447. !         delim['+'] = delim['-'] = FC_SIGN;
  2448. !         delim['e'] = delim['E'] = FC_E;
  2449. ! 
  2450.           fstate = FS_INIT;
  2451.           fbp = fbuf;
  2452. !         while (c != EOF && width--) {
  2453. !             trans = delim[c];
  2454. !             if (trans == (char) -1)
  2455. !               break;
  2456. !             if (fbp - fbuf + 1 < sizeof (fbuf))
  2457. !               *fbp++ = c;
  2458.   
  2459.               if (fp_do[trans][fstate] == F_QUIT)
  2460. !             break;
  2461.               fstate = fp_ns[trans][fstate];
  2462.               charcnt++;
  2463.               c = (*get)(ip);
  2464.           }
  2465. ! 
  2466.           *fbp = '\0';
  2467.           if (!fp_sval[fstate])
  2468.               goto done;
  2469. ***************
  2470. *** 332,337 ****
  2471. --- 385,398 ----
  2472.   #else
  2473.               p = (unsigned char *) *args;
  2474.   #endif
  2475. + #ifdef __STDC__
  2476. +             /* partial support for long double */
  2477. + #ifdef __M68881__   /* currently only with m68881 */
  2478. +             if (llval)
  2479. +               *(long double *) p = (long double) fx;
  2480. +             else
  2481. + #endif
  2482. + #endif
  2483.               if (lval)
  2484.               *((double *) p) = fx;
  2485.               else
  2486. ***************
  2487. *** 340,346 ****
  2488.           }
  2489.           break;
  2490.   #endif
  2491. !         
  2492.             case 'n':
  2493.           if (store) {
  2494.   #ifdef __STDC__
  2495. --- 401,407 ----
  2496.           }
  2497.           break;
  2498.   #endif
  2499. ! 
  2500.             case 'n':
  2501.           if (store) {
  2502.   #ifdef __STDC__
  2503. ***************
  2504. *** 348,414 ****
  2505.   #else
  2506.             p = (unsigned char *) *args;
  2507.   #endif
  2508. !           *((int *) p) = charcnt;
  2509.           }
  2510.           break;
  2511. !         
  2512.             case 'c':    /* character data */
  2513. !         width = wide1;
  2514.           endnull    = FALSE;
  2515. !         delim[0] = '\0';
  2516.           goto strproc;
  2517. !         
  2518.             case '[':    /* string w/ delimiter set */
  2519. !         
  2520.           /* get delimiters */
  2521. !         p = delim;
  2522. !         
  2523. !         if (*++fmt == '^')
  2524.               fmt++;
  2525. !         else
  2526. !             lval = TRUE;
  2527. !         
  2528. !         rngflag = 2;
  2529.           if ((*fmt == ']') || (*fmt == '-'))
  2530.           {
  2531. !             *p++ = *fmt++;
  2532. !             rngflag = FALSE;
  2533.           }
  2534. !         
  2535. !         while (*fmt != ']')
  2536.           {
  2537. !             if (*fmt == '\0')
  2538. !             goto done;
  2539. !             switch (rngflag)
  2540. !             {
  2541. !               case TRUE:
  2542. !             c2 = *(p-2);
  2543. !             if (c2 <= *fmt)
  2544. !             {
  2545. !                 p -= 2;
  2546. !                 while (c2 < *fmt)
  2547. !                 *p++ = c2++;
  2548. !                 rngflag = 2;
  2549. !                 break;
  2550. !             }
  2551. !             /* fall thru intentional */
  2552. !             
  2553. !               case FALSE:
  2554. !             rngflag = (*fmt == '-');
  2555. !             break;
  2556. !             
  2557. !               case 2:
  2558. !             rngflag = FALSE;
  2559. !             }
  2560. !             
  2561. !             *p++ = *fmt++;
  2562.           }
  2563. !         
  2564. !         *p = '\0';
  2565.           goto strproc;
  2566. !         
  2567.             case 's':    /* string data */
  2568.           skip();
  2569.             strproc:
  2570.           /* process string */
  2571.   #ifdef __STDC__
  2572. --- 409,472 ----
  2573.   #else
  2574.             p = (unsigned char *) *args;
  2575.   #endif
  2576. !           /* Compensate for lookahead */
  2577. !           *((int *) p) = charcnt - 1;
  2578.           }
  2579.           break;
  2580. ! 
  2581.             case 'c':    /* character data */
  2582. !         if (width == -1)
  2583. !           width = 1;
  2584.           endnull    = FALSE;
  2585. !         memset (delim, 0, sizeof (delim));
  2586. !         if (c == EOF)
  2587. !           goto done;
  2588.           goto strproc;
  2589. ! 
  2590.             case '[':    /* string w/ delimiter set */
  2591. !         endnull    = TRUE;
  2592. ! 
  2593.           /* get delimiters */
  2594. !         neg = FALSE;
  2595. !         if (*fmt == '^')
  2596. !           {
  2597.               fmt++;
  2598. !             neg = TRUE;
  2599. !           }
  2600. ! 
  2601. !         memset (delim, !neg, sizeof (delim));
  2602. ! 
  2603.           if ((*fmt == ']') || (*fmt == '-'))
  2604.           {
  2605. !             delim[*fmt++] = neg;
  2606.           }
  2607. ! 
  2608. !         while (c2 = *fmt++, c2 != ']')
  2609.           {
  2610. !             if (c2 == '\0')
  2611. !               break;
  2612. !             if (*fmt == '-' && fmt[1] && fmt[1] != ']')
  2613. !               {
  2614. !             while (c2 <= fmt[1])
  2615. !               delim[c2++] = neg;
  2616. !             fmt += 2;
  2617. !               }
  2618. !             else
  2619. !               delim[c2] = neg;
  2620.           }
  2621. ! 
  2622.           goto strproc;
  2623. ! 
  2624.             case 's':    /* string data */
  2625.           skip();
  2626. +         memset (delim, 0, sizeof (delim));
  2627. +         delim['\t'] = 1;
  2628. +         delim['\n'] = 1;
  2629. +         delim['\v'] = 1;
  2630. +         delim['\f'] = 1;
  2631. +         delim['\r'] = 1;
  2632. +         delim[' '] = 1;
  2633. +         endnull    = TRUE;
  2634.             strproc:
  2635.           /* process string */
  2636.   #ifdef __STDC__
  2637. ***************
  2638. *** 417,430 ****
  2639.   #else
  2640.           p = ((unsigned char *) *args);
  2641.   #endif
  2642. !         
  2643.           /* if the 1st char fails, match fails */
  2644.           if (width)
  2645.           {
  2646. !             q = ((unsigned char *)
  2647. !              strchr((const char *)delim, c));
  2648. !             if((c < 1)
  2649. !                || (lval ? (q == NULL) : (q != NULL)))
  2650.               {
  2651.               if (endnull)
  2652.                   if (store)
  2653. --- 475,485 ----
  2654.   #else
  2655.           p = ((unsigned char *) *args);
  2656.   #endif
  2657. ! 
  2658.           /* if the 1st char fails, match fails */
  2659.           if (width)
  2660.           {
  2661. !             if (c == EOF || delim[c])
  2662.               {
  2663.               if (endnull)
  2664.                   if (store)
  2665. ***************
  2666. *** 432,452 ****
  2667.               goto done;
  2668.               }
  2669.           }
  2670. !         
  2671.           for (;;) /* FOREVER */
  2672.           {
  2673.               if (store)
  2674.               *p++ = c;
  2675.               charcnt++;
  2676. !             if (((c = (*get)(ip)) < 1) ||
  2677. !             (--width == 0))
  2678.               break;
  2679. !             q = ((unsigned char *)
  2680. !              strchr((const char *)delim, c));
  2681. !             if (lval ? (q == NULL) : (q != NULL))
  2682.               break;
  2683.           }
  2684. !         
  2685.           if (store)
  2686.           {
  2687.               if (endnull)
  2688. --- 487,505 ----
  2689.               goto done;
  2690.               }
  2691.           }
  2692. ! 
  2693.           for (;;) /* FOREVER */
  2694.           {
  2695.               if (store)
  2696.               *p++ = c;
  2697.               charcnt++;
  2698. !             c = (*get)(ip);
  2699. !             if (c == EOF || --width == 0)
  2700.               break;
  2701. !             if (delim[c])
  2702.               break;
  2703.           }
  2704. ! 
  2705.           if (store)
  2706.           {
  2707.               if (endnull)
  2708. ***************
  2709. *** 454,499 ****
  2710.               ++cnt;
  2711.           }
  2712.           break;
  2713. !         
  2714. !           case '\0':    /* early EOS */
  2715.           --fmt;
  2716. -         /* FALL THRU */
  2717. -         
  2718. -           default:
  2719.           goto cmatch;
  2720.           }
  2721.       }
  2722.       else if (isspace(*fmt))        /* skip whitespace */
  2723.       {
  2724.           skip();
  2725.       }
  2726. !     else 
  2727.       {            /* normal match char */
  2728.         cmatch:
  2729. !         if (c != *fmt) 
  2730. !         break;
  2731. !         if (fmt[1] == 0) {    /* we're not going to have any more matches */
  2732. !         return (cnt);
  2733. !         }
  2734.           charcnt++;
  2735.           c = (*get)(ip);
  2736.       }
  2737. !     
  2738.   #ifdef __STDC__
  2739.       /* nothing to do */
  2740.   #else
  2741.       if (store)
  2742.           args++;
  2743.   #endif
  2744. -     
  2745. -     if (!*++fmt)
  2746. -         break;
  2747.       }
  2748. !     
  2749.     done:                        /* end of scan */
  2750. !     if ((c < 0) && (cnt == 0))
  2751.       return(EOF);
  2752. -     
  2753. -     (*unget)(c, ip);
  2754.       return(cnt);
  2755.   }
  2756. --- 507,547 ----
  2757.               ++cnt;
  2758.           }
  2759.           break;
  2760. ! 
  2761. !           case '%':
  2762.           --fmt;
  2763.           goto cmatch;
  2764. + 
  2765. +           default:
  2766. +         goto done;
  2767.           }
  2768.       }
  2769.       else if (isspace(*fmt))        /* skip whitespace */
  2770.       {
  2771. +         fmt++;
  2772.           skip();
  2773.       }
  2774. !     else
  2775.       {            /* normal match char */
  2776.         cmatch:
  2777. !         if (c != *fmt++)
  2778. !           goto done;
  2779.           charcnt++;
  2780.           c = (*get)(ip);
  2781.       }
  2782. ! 
  2783.   #ifdef __STDC__
  2784.       /* nothing to do */
  2785.   #else
  2786.       if (store)
  2787.           args++;
  2788.   #endif
  2789.       }
  2790. ! 
  2791.     done:                        /* end of scan */
  2792. !     if (c != EOF)
  2793. !       (*unget) (c, ip);
  2794. !     if (c == EOF && cnt == 0)
  2795.       return(EOF);
  2796.       return(cnt);
  2797.   }
  2798. *** 41.1    1993/11/03 13:33:02
  2799. --- spawn.c    1994/01/09 09:16:12
  2800. ***************
  2801. *** 61,73 ****
  2802.   
  2803.   static char *const extensions[] = { "ttp", "prg", "tos", NULL };
  2804.   
  2805. ! static int interpret_script __PROTO((int mode, const char *path, 
  2806.                       char *const *argv, char *const *envp));
  2807.   
  2808.   static int
  2809. ! interpret_script(mode, path, argv, envp)
  2810.       int        mode;
  2811.       const char *path;
  2812.       char    *const *argv;
  2813.       char    *const *envp;
  2814.   {
  2815. --- 61,74 ----
  2816.   
  2817.   static char *const extensions[] = { "ttp", "prg", "tos", NULL };
  2818.   
  2819. ! static int interpret_script __PROTO((int mode, const char *path, const char *,
  2820.                       char *const *argv, char *const *envp));
  2821.   
  2822.   static int
  2823. ! interpret_script(mode, path, _path, argv, envp)
  2824.       int        mode;
  2825.       const char *path;
  2826. +     const char *_path;
  2827.       char    *const *argv;
  2828.       char    *const *envp;
  2829.   {
  2830. ***************
  2831. *** 140,146 ****
  2832.           
  2833.           if (*shell)
  2834.             {
  2835. !         shell = buffindfile (shell, getenv("PATH"), extensions, tmppath);
  2836.           if (!shell)
  2837.             {
  2838.               errno = ENOENT;
  2839. --- 141,147 ----
  2840.           
  2841.           if (*shell)
  2842.             {
  2843. !         shell = _buffindfile (shell, getenv("PATH"), extensions, tmppath);
  2844.           if (!shell)
  2845.             {
  2846.               errno = ENOENT;
  2847. ***************
  2848. *** 164,171 ****
  2849.             while (*shellargs++ != '\0');
  2850.           }
  2851.   
  2852. !         while (*argv != NULL)
  2853. !           shellargv[i++] = *argv++;
  2854.           shellargv[i] = NULL;
  2855.   
  2856.           rv = _spawnve(mode, shell, shellargv, envp);
  2857. --- 165,174 ----
  2858.             while (*shellargs++ != '\0');
  2859.           }
  2860.   
  2861. !         /* use the full pathname of the script instead of argv[0] */
  2862. !         shellargv[i++] = (char *) _path;
  2863. !         while (*++argv != NULL)
  2864. !           shellargv[i++] = *argv;
  2865.           shellargv[i] = NULL;
  2866.   
  2867.           rv = _spawnve(mode, shell, shellargv, envp);
  2868. ***************
  2869. *** 479,485 ****
  2870.               if ((umode = getenv("UNIXMODE")) != NULL &&
  2871.                       strchr(umode, 's') != NULL ) {
  2872.                   (void)Mfree(env);
  2873. !                 return interpret_script(mode, path, _argv, _envp);
  2874.               }
  2875.           }
  2876.   #endif
  2877. --- 482,488 ----
  2878.               if ((umode = getenv("UNIXMODE")) != NULL &&
  2879.                       strchr(umode, 's') != NULL ) {
  2880.                   (void)Mfree(env);
  2881. !                 return interpret_script(mode, path, _path, _argv, _envp);
  2882.               }
  2883.           }
  2884.   #endif
  2885. *** 41.1    1993/11/03 13:33:02
  2886. --- spawnvp.c    1994/01/09 09:16:14
  2887. ***************
  2888. *** 25,31 ****
  2889.   {
  2890.       const char *execname;
  2891.         char buffer[PATH_MAX];
  2892. !       execname = buffindfile(name, getenv("PATH"), extensions,buffer);
  2893.       if (!execname) {
  2894.           errno = ENOENT;
  2895.           return -1;        /* file not found */
  2896. --- 25,31 ----
  2897.   {
  2898.       const char *execname;
  2899.         char buffer[PATH_MAX];
  2900. !       execname = _buffindfile(name, getenv("PATH"), extensions,buffer);
  2901.       if (!execname) {
  2902.           errno = ENOENT;
  2903.           return -1;        /* file not found */
  2904. *** 41.1    1993/11/03 13:33:02
  2905. --- sync.c    1994/01/09 09:52:10
  2906. ***************
  2907. *** 11,19 ****
  2908.    *    minixfs V 060 PL 5 always syncs all drives, so there will
  2909.    *    be to much syncing, since we call Dcntl for all known drives.
  2910.    *    
  2911. !  * $Revision: 41.1 $   $Date: 1993/11/03 13:33:02 $    $Author: root $
  2912.    * 
  2913.    * $Log: sync.c,v $
  2914.    * Revision 41.1  1993/11/03  13:33:02  root
  2915.    * -
  2916.    *
  2917. --- 11,25 ----
  2918.    *    minixfs V 060 PL 5 always syncs all drives, so there will
  2919.    *    be to much syncing, since we call Dcntl for all known drives.
  2920.    *    
  2921. !  * $Revision: 41.2 $   $Date: 1994/01/09 09:52:04 $    $Author: schwab $
  2922.    * 
  2923.    * $Log: sync.c,v $
  2924. +  * Revision 41.2  1994/01/09  09:52:04  schwab
  2925. +  * fsync() uses the value from st_dev in the stat structure to form a
  2926. +  * pathname for Dcntl. This value can be > 0x100 for filesystems mounted
  2927. +  * via FS_MOUNT. Currently there is no way to sync such a filesystem, i
  2928. +  * have changed fsync to just return successfully in this case.
  2929. +  *
  2930.    * Revision 41.1  1993/11/03  13:33:02  root
  2931.    * -
  2932.    *
  2933. ***************
  2934. *** 107,112 ****
  2935. --- 113,123 ----
  2936.       
  2937.       if (fstat(fd, &statbuf))
  2938.           return -1;            /* errno set from fstat */
  2939. + 
  2940. +     if (statbuf.st_dev >= 32)
  2941. +       /* If mounted via FS_MOUNT, st_dev will be > 0x100.
  2942. +          Pretend that it worked. */
  2943. +       return 0;
  2944.   
  2945.       path[0] = 'A'+ statbuf.st_dev;
  2946.       if (!Dcntl(MFS_VERIFY, path, &magic) && magic == MFS_MAGIC) {
  2947. *** 41.1    1993/11/03 13:33:02
  2948. --- tcattr.c    1993/11/24 21:08:30
  2949. ***************
  2950. *** 72,78 ****
  2951.               | ((sg.sg_flags & XKEY) ? IEXTEN : 0)
  2952.               | ((sg.sg_flags & RAW)
  2953.                   ? 0 
  2954. !                 : ((sg.sg_flags & CBREAK) ? ISIG : ICANON)));
  2955.     stp->_c_ispeed = (speed_t) sg.sg_ispeed;
  2956.     stp->_c_ospeed = (speed_t) sg.sg_ospeed;
  2957.     stp->c_cc[VEOF]    = (cc_t) t.t_eofc;
  2958. --- 72,78 ----
  2959.               | ((sg.sg_flags & XKEY) ? IEXTEN : 0)
  2960.               | ((sg.sg_flags & RAW)
  2961.                   ? 0 
  2962. !                 : ISIG | (sg.sg_flags & CBREAK ? 0 : ICANON)));
  2963.     stp->_c_ispeed = (speed_t) sg.sg_ispeed;
  2964.     stp->_c_ospeed = (speed_t) sg.sg_ospeed;
  2965.     stp->c_cc[VEOF]    = (cc_t) t.t_eofc;
  2966. ***************
  2967. *** 144,154 ****
  2968.     }
  2969.     sg.sg_flags |= ((stp->c_lflag & (TOSTOP | NOFLSH | ECHO))
  2970.               | ((stp->c_lflag & IEXTEN) ? XKEY : 0)
  2971. !             | ((stp->c_lflag & ICANON)
  2972. !                 ? 0
  2973. !                 : ((stp->c_lflag & ISIG) ? CBREAK : RAW)));
  2974.     sg.sg_ispeed = (char) stp->_c_ispeed;
  2975. !   sg.sg_ispeed = (char) stp->_c_ospeed;
  2976.     t.t_eofc         = (char) stp->c_cc[VEOF];
  2977.     t.t_brkc        = (char) stp->c_cc[VEOL];  
  2978.     sg.sg_erase        = (char) stp->c_cc[VERASE];
  2979. --- 144,153 ----
  2980.     }
  2981.     sg.sg_flags |= ((stp->c_lflag & (TOSTOP | NOFLSH | ECHO))
  2982.               | ((stp->c_lflag & IEXTEN) ? XKEY : 0)
  2983. !             | ((stp->c_lflag & ISIG)
  2984. !                ? (stp->c_lflag & ICANON ? 0 : CBREAK) : RAW));
  2985.     sg.sg_ispeed = (char) stp->_c_ispeed;
  2986. !   sg.sg_ospeed = (char) stp->_c_ospeed;
  2987.     t.t_eofc         = (char) stp->c_cc[VEOF];
  2988.     t.t_brkc        = (char) stp->c_cc[VEOL];  
  2989.     sg.sg_erase        = (char) stp->c_cc[VERASE];
  2990. *** 41.1    1993/11/03 13:33:02
  2991. --- thread.c    1994/01/09 18:08:38
  2992. ***************
  2993. *** 26,31 ****
  2994. --- 26,46 ----
  2995.   
  2996.   #define SIZE 4096L
  2997.   
  2998. + #ifdef __MBASE__    /* gcc -mbaserel data/bss base */
  2999. + #define mbasep() \
  3000. + ({    register long retvalue __asm__(__MBASESTR__);    \
  3001. +     retvalue;                    \
  3002. + })
  3003. + #define fixmbasep(addr) (void) \
  3004. + ({                        \
  3005. +     __asm__ volatile            \
  3006. +     (" movl    %0,"__MBASESTR__ ";"        \
  3007. +     :            /* outputs */    \
  3008. +     : "g"(addr)            /* inputs */    \
  3009. +     );                    \
  3010. + })
  3011. + #endif /* __MBASE__ */
  3012. + 
  3013.   extern int __mint;
  3014.   extern long _childtime;            /* in main.c */
  3015.   extern long _sigpending, _sigmask;    /* in signal.c */
  3016. ***************
  3017. *** 54,59 ****
  3018. --- 69,77 ----
  3019.       _setstack( ((char *)b) + SIZE );
  3020.       func = (int (*) __PROTO((long)))b->p_dbase;
  3021.       arg = b->p_dlen;
  3022. + #ifdef __MBASE__
  3023. +     fixmbasep((long) (b->p_bbase));
  3024. + #endif /* __MBASE__ */
  3025.       Pterm((*func)(arg));
  3026.   }
  3027.   
  3028. ***************
  3029. *** 78,83 ****
  3030. --- 96,104 ----
  3031.       b->p_dbase = (char *)func;
  3032.       b->p_dlen = arg;
  3033.       b->p_hitpa = ((char *)b) + SIZE + 256;
  3034. + #ifdef __MBASE__
  3035. +     b->p_bbase = (char *) mbasep();
  3036. + #endif /* __MBASE__ */
  3037.    
  3038.       if (__mint)
  3039.           pid = Pexec(104, 0L, b, 0L);
  3040. ***************
  3041. *** 95,102 ****
  3042.   
  3043.           now = _clock();
  3044.           pid = Pexec(4, 0L, b, 0L);
  3045. -         (void)Mfree(b->p_env);    /* free the memory */
  3046. -         (void)Mfree(b);
  3047.   
  3048.           _base = savbase;
  3049.       /* restore signal stuff */
  3050. --- 116,121 ----
  3051. ***************
  3052. *** 115,119 ****
  3053. --- 134,140 ----
  3054.               _childtime += __waittime;
  3055.           }
  3056.       }
  3057. +     (void)Mfree(b->p_env);    /* free the memory */
  3058. +     (void)Mfree(b);
  3059.       return pid;
  3060.   }
  3061. *** 41.1    1993/11/03 13:33:02
  3062. --- unx2dos.c    1994/01/09 09:44:22
  3063. ***************
  3064. *** 171,180 ****
  3065.           _unx2dos(buf, dos);
  3066.           while (*dos)
  3067.               dos++;
  3068. !         *dos++ = ',';
  3069.       }        
  3070.   
  3071. !     *--dos = 0;
  3072.       return 0;
  3073.   }        
  3074.   
  3075. --- 171,181 ----
  3076.           _unx2dos(buf, dos);
  3077.           while (*dos)
  3078.               dos++;
  3079. !         if (*unx)
  3080. !           *dos++ = ',';
  3081.       }        
  3082.   
  3083. !     *dos = 0;
  3084.       return 0;
  3085.   }        
  3086.   
  3087. ***************
  3088. *** 198,206 ****
  3089.           _dos2unx(buf, unx);
  3090.           while (*unx)
  3091.               unx++;
  3092. !         *unx++ = ':';
  3093.       }
  3094.   
  3095. !     *--unx = 0;
  3096.       return 0;
  3097.   }
  3098. --- 199,208 ----
  3099.           _dos2unx(buf, unx);
  3100.           while (*unx)
  3101.               unx++;
  3102. !         if (*dos)
  3103. !           *unx++ = ':';
  3104.       }
  3105.   
  3106. !     *unx = 0;
  3107.       return 0;
  3108.   }
  3109. *** 41.1    1993/11/04 03:12:46
  3110. --- crlf/crlf.c    1994/01/09 14:01:58
  3111. ***************
  3112. *** 1,18 ****
  3113. ! /* crlf.c 1.1 by entropy@terminator.rs.itd.umich.edu
  3114.      PUBLIC DOMAIN -- NO RIGHTS RESERVED
  3115.      NO WARRANTY -- USE AT YOUR OWN RISK!!!!!!!!!
  3116.      strips/adds carriage returns from text files
  3117.   */
  3118.   
  3119.   #include <stdio.h>
  3120.   #include <stdlib.h>
  3121.   #include <unistd.h>
  3122.   #include <string.h>
  3123.   #ifdef __atarist__
  3124.   #include <compiler.h>
  3125.   #ifdef __TURBOC__
  3126.   #include <sys\types.h>
  3127.   #include <sys\stat.h>
  3128.   #else /* not __TURBOC__ */
  3129.   #include <sys/types.h>
  3130.   #include <sys/stat.h>
  3131. --- 1,29 ----
  3132. ! /* crlf.c 1.3 by entropy@terminator.rs.itd.umich.edu
  3133. ! 
  3134.      PUBLIC DOMAIN -- NO RIGHTS RESERVED
  3135.      NO WARRANTY -- USE AT YOUR OWN RISK!!!!!!!!!
  3136.      strips/adds carriage returns from text files
  3137.   */
  3138. + #ifndef __atarist__
  3139. + #ifdef __TOS__   /* #defined by TurboC / PureC */
  3140. +   #define __atarist__
  3141. + #endif
  3142. + #endif
  3143.   
  3144.   #include <stdio.h>
  3145.   #include <stdlib.h>
  3146.   #include <unistd.h>
  3147.   #include <string.h>
  3148. + #include <time.h>
  3149. + #include <utime.h>
  3150. + #define UNUSED(x)
  3151.   #ifdef __atarist__
  3152.   #include <compiler.h>
  3153.   #ifdef __TURBOC__
  3154.   #include <sys\types.h>
  3155.   #include <sys\stat.h>
  3156. + #undef UNUSED
  3157. + #define UNUSED(x) ((void)(x))
  3158.   #else /* not __TURBOC__ */
  3159.   #include <sys/types.h>
  3160.   #include <sys/stat.h>
  3161. ***************
  3162. *** 30,38 ****
  3163.   #define EXIT_SUCCESS 0
  3164.   #endif /* EXIT_SUCCESS */
  3165.   #ifdef __STDC__
  3166. ! #ifndef __NO_PROTO__
  3167.   #define __PROTO(x) x
  3168. ! #endif /* not __NO_PROTO__ */
  3169.   #define __EXTERN
  3170.   #else /* not __STDC__ */
  3171.   #define __EXTERN extern
  3172. --- 41,49 ----
  3173.   #define EXIT_SUCCESS 0
  3174.   #endif /* EXIT_SUCCESS */
  3175.   #ifdef __STDC__
  3176. ! #ifndef __NO___PROTO__
  3177.   #define __PROTO(x) x
  3178. ! #endif /* not __NO___PROTO__ */
  3179.   #define __EXTERN
  3180.   #else /* not __STDC__ */
  3181.   #define __EXTERN extern
  3182. ***************
  3183. *** 40,47 ****
  3184.   #endif /* not __STDC__ */
  3185.   #endif /* not __atarist__ */
  3186.   
  3187. - __EXTERN int utime __PROTO((char *path, struct utimbuf *times));
  3188. - 
  3189.   extern char *optarg;
  3190.   extern int optind, opterr;
  3191.   
  3192. --- 51,56 ----
  3193. ***************
  3194. *** 50,63 ****
  3195.   #define CR_NONE 2
  3196.   
  3197.   char *program = NULL;
  3198.   
  3199.   void perror2 __PROTO((char *msg1, char *msg2));
  3200.   int crlf __PROTO((char *filename, int mode));
  3201.   int simple_outchar __PROTO((FILE *ofp, int c));
  3202.   int tounx_outchar __PROTO((FILE *ofp, int c));
  3203.   int totos_outchar __PROTO((FILE *ofp, int c));
  3204. ! int smart_copy __PROTO((char *ifn, char *ofn, 
  3205. !                         int (*outcharfunc)(FILE *, int)));
  3206.   
  3207.   void
  3208.   perror2(msg1, msg2)
  3209. --- 59,73 ----
  3210.   #define CR_NONE 2
  3211.   
  3212.   char *program = NULL;
  3213. + int verbose = 0;
  3214.   
  3215.   void perror2 __PROTO((char *msg1, char *msg2));
  3216.   int crlf __PROTO((char *filename, int mode));
  3217.   int simple_outchar __PROTO((FILE *ofp, int c));
  3218.   int tounx_outchar __PROTO((FILE *ofp, int c));
  3219.   int totos_outchar __PROTO((FILE *ofp, int c));
  3220. ! int smart_copy __PROTO((char *ifn, char *ofn,
  3221. !                       int (*outcharfunc)(FILE *, int)));
  3222.   
  3223.   void
  3224.   perror2(msg1, msg2)
  3225. ***************
  3226. *** 86,91 ****
  3227. --- 96,103 ----
  3228.     FILE *ofp;
  3229.     int c;
  3230.   {
  3231. +   if (c == '\r' ) /* first strip all CRs... */
  3232. +     return c;
  3233.     if (c == '\n')
  3234.     {
  3235.       fputc('\r', ofp);
  3236. ***************
  3237. *** 110,132 ****
  3238.   smart_copy(ifn, ofn, outcharfunc)
  3239.     char *ifn;
  3240.     char *ofn;
  3241. !   int (*outcharfunc)(FILE *, int);
  3242.   {
  3243.     FILE *ifp;
  3244.     FILE *ofp;
  3245.     int c;
  3246.   
  3247. !   if ((ifp = fopen(ifn, "rb")) == NULL)
  3248.     {
  3249. !     perror2(program, ifn);
  3250. !     return (-1);
  3251.     }
  3252. !   if ((ofp = fopen(ofn, "wb")) == NULL)
  3253.     {
  3254. !     fclose(ifp);
  3255. !     perror2(program, ofn);
  3256. !     return (-1);
  3257.     }
  3258.     c = fgetc(ifp);
  3259.     while (!(feof(ifp)) && !(ferror(ifp)) && !(ferror(ofp)))
  3260.     {
  3261. --- 122,160 ----
  3262.   smart_copy(ifn, ofn, outcharfunc)
  3263.     char *ifn;
  3264.     char *ofn;
  3265. !   int (*outcharfunc) __PROTO((FILE *, int));
  3266.   {
  3267.     FILE *ifp;
  3268.     FILE *ofp;
  3269.     int c;
  3270.   
  3271. !   if (*ifn) 
  3272.     {
  3273. !     if ((ifp = fopen(ifn, "rb")) == NULL)
  3274. !     {
  3275. !       perror2(program, ifn);
  3276. !       return (-1);
  3277. !     }
  3278.     }
  3279. !   else
  3280.     {
  3281. !     ifp = stdin;
  3282. !   }
  3283. !   if (*ofn) 
  3284. !   {
  3285. !     if ((ofp = fopen(ofn, "wb")) == NULL)
  3286. !     {
  3287. !       fclose(ifp);
  3288. !       perror2(program, ofn);
  3289. !       return (-1);
  3290. !     }
  3291.     }
  3292. +   else
  3293. +   {
  3294. +     ofp = stdout;
  3295. +   }
  3296. +   setvbuf(ofp, NULL, _IOFBF, 50*1024L);
  3297. +   setvbuf(ifp, NULL, _IOFBF, 50*1024L);
  3298.     c = fgetc(ifp);
  3299.     while (!(feof(ifp)) && !(ferror(ifp)) && !(ferror(ofp)))
  3300.     {
  3301. ***************
  3302. *** 136,159 ****
  3303.     if (ferror(ifp))
  3304.     {
  3305.       perror2(program, ifn);
  3306. !     fclose(ifp);
  3307. !     fclose(ofp);
  3308.       return (-1);
  3309.     }
  3310.     if (ferror(ofp))
  3311.     {
  3312.       perror2(program, ofn);
  3313. !     fclose(ifp);
  3314. !     fclose(ofp);
  3315.       return (-1);
  3316.     }
  3317. !   if (fclose(ifp) == EOF)
  3318.     {
  3319.       perror2(program, ifn);
  3320. !     fclose(ofp);
  3321.       return (-1);
  3322.     }
  3323. !   if (fclose(ofp) == EOF)
  3324.     {
  3325.       perror2(program, ofn);
  3326.       return (-1);
  3327. --- 164,202 ----
  3328.     if (ferror(ifp))
  3329.     {
  3330.       perror2(program, ifn);
  3331. !     if (*ifn)
  3332. !     {
  3333. !       fclose(ifp);
  3334. !     }
  3335. !     if (*ofn)
  3336. !     {
  3337. !       fclose(ofp);
  3338. !     }
  3339.       return (-1);
  3340.     }
  3341.     if (ferror(ofp))
  3342.     {
  3343.       perror2(program, ofn);
  3344. !     if (*ifn)
  3345. !     {
  3346. !       fclose(ifp);
  3347. !     }
  3348. !     if (*ofn)
  3349. !     {
  3350. !       fclose(ofp);
  3351. !     }
  3352.       return (-1);
  3353.     }
  3354. !   if (*ifn && fclose(ifp) == EOF)
  3355.     {
  3356.       perror2(program, ifn);
  3357. !     if (*ofn)
  3358. !     {
  3359. !       fclose(ofp);
  3360. !     }
  3361.       return (-1);
  3362.     }
  3363. !   if (*ofn && fclose(ofp) == EOF)
  3364.     {
  3365.       perror2(program, ofn);
  3366.       return (-1);
  3367. ***************
  3368. *** 166,181 ****
  3369.     char *filename;
  3370.     int mode; /* 0 == strip CR's, 1 == add CR's */
  3371.   {
  3372. !   char tempname[256];
  3373. !   int (*outcharfunc)(FILE *, int);
  3374.   
  3375. -   strcpy(tempname, "/tmp/crlfXXXXXX");
  3376. -   if (mktemp(tempname) == NULL)
  3377. -   {
  3378. -     fputs(program, stderr);
  3379. -     fputs(": could not get a temporary filename\n", stderr);
  3380. -     return (-1);
  3381. -   }
  3382.     switch (mode)
  3383.     {
  3384.       case CR_ADD:
  3385. --- 209,218 ----
  3386.     char *filename;
  3387.     int mode; /* 0 == strip CR's, 1 == add CR's */
  3388.   {
  3389. !   char tempname[FILENAME_MAX];
  3390. !   char *ev;
  3391. !   int (*outcharfunc) __PROTO((FILE *, int));
  3392.   
  3393.     switch (mode)
  3394.     {
  3395.       case CR_ADD:
  3396. ***************
  3397. *** 186,204 ****
  3398.         outcharfunc = tounx_outchar;
  3399.         break;
  3400.     }
  3401. !   if (smart_copy(filename, tempname, outcharfunc))
  3402.     {
  3403. !     return (-1);
  3404.     }
  3405. !   if (rename(tempname, filename))
  3406.     {
  3407. !     if (smart_copy(tempname, filename, simple_outchar))
  3408.       {
  3409.         return (-1);
  3410.       }
  3411. !     if (unlink(tempname))
  3412.       {
  3413. -       perror2(program, tempname);
  3414.         return (-1);
  3415.       }
  3416.     }
  3417. --- 223,270 ----
  3418.         outcharfunc = tounx_outchar;
  3419.         break;
  3420.     }
  3421. !   if (verbose)
  3422.     {
  3423. !     fputs(filename, stderr);
  3424. !     fputc('\n', stderr);
  3425.     }
  3426. !   if (*filename)
  3427.     {
  3428. !     *tempname = '\0';
  3429. !     if ((ev = getenv("TEMP")) || (ev = getenv("TMP"))
  3430. !         || (ev = getenv("TMPDIR")))
  3431. !     {
  3432. !       strcpy(tempname, ev);
  3433. !       strcat(tempname, "/");
  3434. !     }
  3435. !     strcat(tempname, "crlfXXXX");
  3436. !     if (mktemp(tempname) == NULL)
  3437.       {
  3438. +       fputs(program, stderr);
  3439. +       fputs(": could not get a temporary filename\n", stderr);
  3440.         return (-1);
  3441.       }
  3442. !     if (smart_copy(filename, tempname, outcharfunc))
  3443. !     {
  3444. !       return (-1);
  3445. !     }
  3446. !     if (rename(tempname, filename))
  3447. !     {
  3448. !       if (smart_copy(tempname, filename, simple_outchar))
  3449. !       {
  3450. !         return (-1);
  3451. !       }
  3452. !       if (unlink(tempname))
  3453. !       {
  3454. !         perror2(program, tempname);
  3455. !         return (-1);
  3456. !       }
  3457. !     }
  3458. !   }
  3459. !   else
  3460. !   {
  3461. !     if (smart_copy("", "", outcharfunc))
  3462.       {
  3463.         return (-1);
  3464.       }
  3465.     }
  3466. ***************
  3467. *** 214,222 ****
  3468.     int err = 0;
  3469.     struct stat st;
  3470.     struct utimbuf ut;
  3471. !   
  3472.     program = argv[0];
  3473. !   while ((c = getopt(argc, argv, "as")) != EOF)
  3474.     {
  3475.       switch (c)
  3476.       {
  3477. --- 280,289 ----
  3478.     int err = 0;
  3479.     struct stat st;
  3480.     struct utimbuf ut;
  3481. ! 
  3482. !   UNUSED(envp);
  3483.     program = argv[0];
  3484. !   while ((c = getopt(argc, argv, "asv")) != EOF)
  3485.     {
  3486.       switch (c)
  3487.       {
  3488. ***************
  3489. *** 224,230 ****
  3490.           if (mode == CR_NONE)
  3491.           {
  3492.             mode = CR_ADD;
  3493. !            }
  3494.           else
  3495.           {
  3496.             err++;
  3497. --- 291,297 ----
  3498.           if (mode == CR_NONE)
  3499.           {
  3500.             mode = CR_ADD;
  3501. !         }
  3502.           else
  3503.           {
  3504.             err++;
  3505. ***************
  3506. *** 234,245 ****
  3507.           if (mode == CR_NONE)
  3508.           {
  3509.             mode = CR_STRIP;
  3510. !            }
  3511.           else
  3512.           {
  3513.             err++;
  3514.           }
  3515.           break;
  3516.         case '?':
  3517.         default:
  3518.           err++;
  3519. --- 301,315 ----
  3520.           if (mode == CR_NONE)
  3521.           {
  3522.             mode = CR_STRIP;
  3523. !         }
  3524.           else
  3525.           {
  3526.             err++;
  3527.           }
  3528.           break;
  3529. +       case 'v':
  3530. +         verbose = 1;
  3531. +         break;
  3532.         case '?':
  3533.         default:
  3534.           err++;
  3535. ***************
  3536. *** 250,290 ****
  3537.     {
  3538.       err++;
  3539.     }
  3540. !   if (err || (optind >= argc))
  3541.     {
  3542.       fputs("usage:  ", stderr);
  3543.       fputs(program, stderr);
  3544. !     fputs(" -s file [file2 [...]] (to strip carriage returns)\n", stderr);
  3545.       fputs("        ", stderr);
  3546.       fputs(program, stderr);
  3547. !     fputs(" -a file [file2 [...]] (to add carriage returns)\n", stderr);
  3548.       exit(EXIT_FAILURE);
  3549.     }
  3550. !   for ( ; optind < argc; optind++)
  3551.     {
  3552. !     fn = argv[optind];
  3553. !     if (access(fn, 4))
  3554.       {
  3555.         err++;
  3556. -       perror2(program, fn);
  3557. -       continue;
  3558.       }
  3559. !     if (stat(fn, &st))
  3560. !     {
  3561. !       err++;
  3562. !       perror2(program, fn);
  3563. !     }
  3564. !     ut.actime = st.st_atime;
  3565. !     ut.modtime = st.st_mtime;
  3566. !     if (crlf(fn, mode) != 0)
  3567. !     {
  3568. !       err++;
  3569. !       continue;
  3570. !     }
  3571. !     if (utime(fn, &ut))
  3572.       {
  3573. !       err++;
  3574. !       perror2(program, fn);
  3575.       }
  3576.     }
  3577.     if (err)
  3578. --- 320,380 ----
  3579.     {
  3580.       err++;
  3581.     }
  3582. !   if (err)
  3583.     {
  3584.       fputs("usage:  ", stderr);
  3585.       fputs(program, stderr);
  3586. !     fputs(" -s[v] [file [file2 [...]]] (to strip carriage returns)\n", stderr);
  3587.       fputs("        ", stderr);
  3588.       fputs(program, stderr);
  3589. !     fputs(" -a[v] [file [file2 [...]]] (to add carriage returns)\n", stderr);
  3590.       exit(EXIT_FAILURE);
  3591.     }
  3592. !   if (optind == argc)
  3593.     {
  3594. !     if (crlf("", mode) != 0)
  3595.       {
  3596.         err++;
  3597.       }
  3598. !   }
  3599. !   else
  3600. !   {
  3601. !     for ( ; optind < argc; optind++)
  3602.       {
  3603. !       fn = argv[optind];
  3604. !       if (access(fn, 4))
  3605. !       {
  3606. !         err++;
  3607. !         perror2(program, fn);
  3608. !         continue;
  3609. !       }
  3610. !       if (stat(fn, &st))
  3611. !       {
  3612. !         err++;
  3613. !         perror2(program, fn);
  3614. !       }
  3615. !       if (!(S_ISREG(st.st_mode)))
  3616. !       {
  3617. !         if (verbose)
  3618. !         {
  3619. !           fputs("crlf:  ignoring non-regular file ", stderr);
  3620. !           fputs(fn, stderr);
  3621. !           fputc('\n', stdout);
  3622. !         }
  3623. !         continue;
  3624. !       }
  3625. !       ut.actime = st.st_atime;
  3626. !       ut.modtime = st.st_mtime;
  3627. !       if (crlf(fn, mode) != 0)
  3628. !       {
  3629. !         err++;
  3630. !         continue;
  3631. !       }
  3632. !       if (utime(fn, &ut))
  3633. !       {
  3634. !         err++;
  3635. !         perror2(program, fn);
  3636. !       }
  3637.       }
  3638.     }
  3639.     if (err)
  3640. *** 41.1    1993/11/04 03:12:46
  3641. --- crlf/crlf.doc    1994/01/09 14:40:08
  3642. ***************
  3643. *** 1,8 ****
  3644.   crlf.c by entropy@terminator.rs.itd.umich.edu
  3645.   PUBLIC DOMAIN -- NO RIGHTS RESERVED
  3646.   
  3647. ! usage:  crlf -s file [file2 [...]] (to strip carriage returns)
  3648. !         crlf -a file [file2 [...]] (to add carriage returns)
  3649.   
  3650.   crlf converts text files between TOS (MS-DOS) and UNIX style line
  3651.   terminators.
  3652. --- 1,9 ----
  3653.   crlf.c by entropy@terminator.rs.itd.umich.edu
  3654. + 
  3655.   PUBLIC DOMAIN -- NO RIGHTS RESERVED
  3656.   
  3657. ! usage:  crlf -s [file [...]] (to strip carriage returns)
  3658. !         crlf -a [file [...]] (to add carriage returns)
  3659.   
  3660.   crlf converts text files between TOS (MS-DOS) and UNIX style line
  3661.   terminators.
  3662. ***************
  3663. *** 13,19 ****
  3664.   file.  Be careful that you do not run this twice on the same file (or at all
  3665.   on a file that already has carriage returns) as you will end up with really
  3666.   strange line terminators that way (recover by stripping and re-adding
  3667. ! returns.
  3668.   
  3669.   If any errors/warnings occur while trying to convert a file, an error status
  3670.   will be returned to the OS when the program exits.  If you are running from
  3671. --- 14,23 ----
  3672.   file.  Be careful that you do not run this twice on the same file (or at all
  3673.   on a file that already has carriage returns) as you will end up with really
  3674.   strange line terminators that way (recover by stripping and re-adding
  3675. ! returns).
  3676. ! 
  3677. ! If no file is specified the input is read from `stdin' and put to `stdout'.
  3678. ! So you can use it as filter in a pipe.
  3679.   
  3680.   If any errors/warnings occur while trying to convert a file, an error status
  3681.   will be returned to the OS when the program exits.  If you are running from
  3682. Binary files /tmp/T0273000 and crlf/crlf.ttp differ
  3683. *** 41.1    1993/11/04 03:12:46
  3684. --- crlf/makefile    1994/01/09 13:48:14
  3685. ***************
  3686. *** 9,17 ****
  3687.   
  3688.   .SUFFIXES: .ttp .tos .prg .sym
  3689.   
  3690. - .o.ttp:
  3691. -     $(CC) $(LDFLAGS) $< -o $@ $(LIBS)
  3692. - 
  3693.   #
  3694.   #
  3695.   all: crlf.ttp
  3696. --- 9,14 ----
  3697. ***************
  3698. *** 19,24 ****
  3699. --- 16,22 ----
  3700.   #
  3701.   #
  3702.   crlf.ttp: crlf.o
  3703. +     $(CC) $(LDFLAGS) $< -o $@ $(LIBS)
  3704.   crlf.o: crlf.c
  3705.   
  3706.   #
  3707. *** /dev/null    Sun Jan 16 05:00:22 1994
  3708. --- purec/unixname/unixname.s    Wed Nov  3 22:20:38 1993
  3709. ***************
  3710. *** 0 ****
  3711. --- 1,113 ----
  3712. + ;{{{}}}
  3713. + ;{{{  about this file
  3714. + ; Author: Michael Schwingen
  3715. + ;         Kranichstraße 10
  3716. + ;         5042 Erftstadt
  3717. + ; purpose:
  3718. + ; Unixname installes itself resident in the GEMDOS trap vector and converts
  3719. + ; all '/'s in filenames to TOS-like '\'.
  3720. + ; Assembler: DevpacST 2.0
  3721. + ;}}}
  3722. + ;{{{  List of GEMDOS-functions and address of filename on stack
  3723. + ; 57 (Dcreate)  : 8(SP)
  3724. + ; 58 (Ddelete)  : 8(SP)
  3725. + ; 59 (Dsetpath) : 8(SP)
  3726. + ; 60 (Fcreate)  : 8(SP)
  3727. + ; 61 (Fopen)    : 8(SP)
  3728. + ; 65 (Fdelete)  : 8(SP)
  3729. + ; 67 (Fattrib)  : 8(SP)
  3730. + ; 75 (Pexec)    : 10(SP) - 8(SP) = mode, changes only if 0/3 !
  3731. + ; 78 (Fsfirst)  : 8(SP)
  3732. + ; 86 (Frename)  : 10(SP),14(SP)
  3733. + ;}}}
  3734. + 
  3735. +               opt o+
  3736. + 
  3737. + start:        bra     init
  3738. + 
  3739. + ;{{{  new trap#1 handler
  3740. +               DC.B "XBRAUn*x"
  3741. + oldvec:       DC.L 0
  3742. + new_vec:      move.w  (sp),d0         ; get SR
  3743. +               lea     6(sp),a0
  3744. +               btst    #$0D,d0         ; SUPER-mode ?
  3745. +               bne.s   .new2           ; yes
  3746. +               move    usp,a0          ; no, parameters are on userstack
  3747. + .new2:        move.w  (a0),d0         ; get GEMDOS Opcode
  3748. +               cmp.w   #57,d0          ; Dcreate() ?
  3749. +               beq     func_type1
  3750. +               cmp.w   #58,d0          ; Ddelete() ?
  3751. +               beq     func_type1
  3752. +               cmp.w   #59,d0          ; Dsetpath() ?
  3753. +               beq     func_type1
  3754. +               cmp.w   #60,d0          ; Fcreate() ?
  3755. +               beq     func_type1
  3756. +               cmp.w   #61,d0          ; Fopen() ?
  3757. +               beq     func_type1
  3758. +               cmp.w   #65,d0          ; Fdelete() ?
  3759. +               beq     func_type1
  3760. +               cmp.w   #67,d0          ; Fattrib() ?
  3761. +               beq     func_type1
  3762. +               cmp.w   #75,d0          ; Pexec() ?
  3763. +               beq     func_pexec
  3764. +               cmp.w   #78,d0          ; Fsfirst() ?
  3765. +               beq     func_type1
  3766. +               cmp.w   #86,d0          ; Frename() ?
  3767. +               beq     func_frename
  3768. + old_vec:      movea.l oldvec,a0
  3769. +               jmp     (a0)
  3770. + func_type1:   movea.l 2(a0),a0        ; ptr to filename
  3771. + func1_1:      bsr     convert_name
  3772. +               bra.s   old_vec
  3773. + func_pexec:   move.w  2(a0),d0        ; mode: 0/3 = filename at 4(a0)
  3774. +               cmp.w   #0,d0
  3775. +               beq.s   .pexec2
  3776. +               cmp.w   #3,d0
  3777. +               bne.s   old_vec
  3778. + .pexec2:      movea.l 4(a0),a0
  3779. +               bra.s   func1_1
  3780. + func_frename: move.l  a0,-(sp)
  3781. +               movea.l 8(a0),a0
  3782. +               bsr     convert_name
  3783. +               movea.l (sp)+,a0
  3784. +               bra.s   func_pexec
  3785. + ;}}}
  3786. + ;{{{  convert_name: convert '/' -> '\'  at (a0)+
  3787. + convert_name:
  3788. +               move.b  (a0),d0
  3789. +               beq     .convend
  3790. +               cmp.b   #"/",d0
  3791. +               bne     .convnext
  3792. +               move.b  #"\",(a0)
  3793. + .convnext:    addq.l  #1,a0
  3794. +               bra.s   convert_name
  3795. + .convend:     rts
  3796. + ;}}}
  3797. + 
  3798. + res_len       EQU *-start
  3799. + ; everything after this point does not stay resident in memory
  3800. + 
  3801. + ;{{{  install resident part
  3802. + init:         pea     new_vec(pc)
  3803. +               move.l  #$050021,-(sp)  ; Setexc(33,...)
  3804. +               trap    #13
  3805. +               addq.l  #8,sp
  3806. +               move.l  d0,oldvec
  3807. + 
  3808. +               lea     inst_txt(pc),a0
  3809. +               bsr     Cconws
  3810. + 
  3811. +               clr.w   -(sp)           ; Ret.-Code
  3812. +               move.l  #256+res_len,-(sp)
  3813. +               move.w  #49,-(sp)       ; Ptermres()
  3814. +               trap    #1
  3815. + ;}}}
  3816. + ;{{{  Cconws: print text
  3817. + Cconws:       move.l  a0,-(sp)
  3818. +               move.w  #9,-(sp)
  3819. +               trap    #1              ; Cconws
  3820. +               addq.l  #6,sp
  3821. +               rts
  3822. + ;}}}
  3823. + 
  3824. + inst_txt:     DC.B 13,10,"Un*xName V1.0 © 1991 by Michael Schwingen installed.",13,10,0
  3825. Binary files /dev/null and purec/unixname/unixname.tos differ
  3826. *** /dev/null    Sun Jan 16 05:00:42 1994
  3827. --- purec/unixname/unixname.txt    Wed Nov  3 22:20:40 1993
  3828. ***************
  3829. *** 0 ****
  3830. --- 1,49 ----
  3831. + UNIXNAME V1.0
  3832. + -------------
  3833. +   Unixname is a little utility which installes  itself  in  the  GEMDOS  trap
  3834. + vector. It then monitors all file functions and watches if filenames  contain
  3835. + '/'. If a '/' is found, it is then converted into a '\'. This  is  especially
  3836. + useful  when  porting  Un*x-software  which  does   things   like   '#include
  3837. + <local/argparse.h>' - you don't have to change it in the sources.
  3838. +   If a program does something like 'fh = open("bind/test")', this  will  work
  3839. + while Unixname is installed - so remember to change  this  because  otherwise
  3840. + every user would need Unixname to run that program.
  3841. + 
  3842. + Unixname watches the following GEMDOS functions:
  3843. +   57 (Dcreate)
  3844. +   58 (Ddelete)
  3845. +   59 (Dsetpath)
  3846. +   60 (Fcreate)
  3847. +   61 (Fopen)
  3848. +   65 (Fdelete)
  3849. +   67 (Fattrib)
  3850. +   75 (Pexec)
  3851. +   78 (Fsfirst)
  3852. +   86 (Frename)
  3853. + 
  3854. + Unixname is distributed in source and binary form. The program  and  code  is
  3855. + copyrighted, but may be freely distributed under the following conditions:
  3856. +  - The source code must be available along with the  binaries.  The  binaries
  3857. +    may be omitted. This documentation must always  be copied in an unmodified
  3858. +    form.
  3859. +  - Modified versions must be clearly marked as such. The copyright  note  and
  3860. +    my name may not me removed from source or binaries. I would  appreciate if
  3861. +    you send me a copy of modified versions.
  3862. +  - No charge may be made other than a reasonable charge for reproduction.
  3863. +  - I am not responsible for any consequences resulting from the  use  or  the
  3864. +    inability to use this software, even if they result from defects in it.
  3865. +  - The program may be distributed together with commercial programs  if  both
  3866. +    source and binaries are distributed and if is made clear that this program
  3867. +    is public domain.
  3868. + 
  3869. + You can make as many copies of this programs as you wish. Give it to friends,
  3870. + distribute it via networks or do whatever you want to do with it.
  3871. + 
  3872. + If you have any problems with this program, feel free to contact me:
  3873. + 
  3874. + Michael Schwingen
  3875. + Ahornstrasse 36
  3876. + W-5100 Aachen
  3877. + Germany
  3878. + Internet: michaels@messua.informatik.rwth-aachen.de
  3879. + 
  3880.